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近年 来 ， 有 关 计算 机 的 书 颇 受 欢迎 ， 这 对 我 苹 计 算 机 的 
普及 和 应 用 ， 起 着 良好 的 推动 作用 。 

但 是 ， 目 前 还 有 不 少 单位 的 微型 计算 机 尚未 充分 发 挥 其 
应 用 的 作用 ， 其 主要 原因 是 对 各 种 各 样 的 微型 计算 机 开发 的 
还 不 够 。 为 了 帮助 广大 初 、 中 级 计算 机 应 用 人 员 以 及 学 过 
号 ASIC 语言 的 中 ,小 学 生 掌 所 编制 程序 的 方法 和 技巧 ,作者 根 
据 近年 来 从 事 计算 机 实践 和 教学 经 验 ， 拟 就 上 述 问题 作 些 
补充 ， 力 求 熔 实用 性 、 通 用 性 、 技 巧 性 、 趣 味 性 于 一 炉 ， 在 
编程 方法 、 设 计 技 巧 和 实际 操作 诸 方面 作 一 些 探索 性 尝试 。 

本 书 强调 普及 和 提高 结合 ， 实 用 和 技巧 兼顾 。 汉 满 足 不 
同 层次 读者 的 需求 。 

本 书 的 资料 主要 来 自作 者 多 年 编程 和 教学 实践 ， 同 时 还 
骸 收 了 国内 外 的 先进 经 验 。 书 中 冰 述 的 方法 、 技 巧 、 思 路 对 
其 它 程 序 设计 语言 都 有 参考 价值 ， 而 实用 程序 可 以 直接 付 诸 
使 用 或 稍 作 修改 后 引用 。 

在 本 书 编写 过 程 中 ， 得 到 南京 大 学 大 气 科学 系 邹 进 上 教 
授 的 鼓励 与 支持 ， 并 提出 不 少 宝贵 意 见 ， 在 此 诅 表 谢意 。 

由 于 作者 学 识 芯 浅 ， 成 书 仓促 ， 错 误 缺 点 在 所 难 龟 ， 获 
捕 广 大 读者 不 将 指教 。 

编 阁 
1987 年 8 月 25 己 
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一 、 什 么 是 程序 设计 和 技巧 


程序 设计 是 以 完成 预定 任务 为 目的 ， 这 是 程序 设计 最 基 
本 要 求 。 然 而 常常 有 这 样 的 情况 ， 一 个 实际 问题 ， 不 同 的 
人 ， 不 同 的 思路 ， 编 制 的 程序 却 是 多 种 多 样 。 这 就 要 讨论 程 
序 设计 的 标准 是 什么 ? 要 依据 什么 原则 来 制定 这 些 标 准 ? 用 
什么 方法 使 设计 的 程序 达到 标准 。 在 程序 设计 中 究 况 有 哪些 
基本 方法 ， 又 有 什么 技巧 等 等 。 


1. 什么 是 程序 设计 


人 们 根据 问题 的 要 求 ， 事 先 安排 好 的 处 理 方法 和 步 又 ， 
称 作 程 序 。 一 个 程序 好 比 是 一 篇 文章 ， 进 行程 序 设 计 的 过 程 
就 是 人 们 按照 计算 机 语言 所 规定 的 语法 和 功能 书写 文章 的 过 
程 ， 这 个 过 程 一 般 来 说 有 以 下 几 个 阶段 ， 提 出 问题 ， 需 求 分 
析 ， 确 定 模型 ， 功 能 设计 ， 绘 制 框图 ， 编 写 程序 ， 动态 调 
试 ， 交 付 使 用 。 


2. 各 种 情况 


考察 人 们 编写 的 各 种 程序 ， 会 发 现 程序 的 编制 情况 多 种 
多 样 ， 归 纳 起 来 有 : 

“设计 思想 简单 或 复杂 8 

“ 程序 宛 长 或 简短 3 

“运行 速度 快 或 慢 ; 


。 精度 高 或 不 够 

“占用 内 存 多 或 少 ! 

“计算 方法 优 或 劣 8 

。 使 用 方便 或 相反 # 

“阅读 修改 程序 难 或 易 ; 

“程序 移植 性 好 或 盖 

。 用 计算 机 协助 编程 或 没有 。 

从 上 面 情况 看 出 ， 程 序 设计 灵活 性 很 大 ， 技 巧 性 很 高 。 


5. 质量 标准 


那么 ， 什 么 是 一 个 好 的 程序 呢 ? 不 同 的 人 有 不 同 的 观 
点 ， 不 同 的 课题 要 求 的 标准 也 不 一 样 ， 所 以 很 难 有 一 个 统一 
的 标准 。 然 而 ”根据 计算 机 用 于 数据 处 理 的 性 质 和 特点 ， 一 
个 好 的 程序 必须 满足 以 下 几 个 方面 。 

(1) 正确 性 ”编制 程序 的 目的 ， 就 是 完成 解 题 任务 ， 这 
是 程序 设计 的 最 基本 要 求 。 一 个 正确 的 程序 必须 保证 在 任何 
情况 下 ， 都 能 得 到 正确 的 运行 结果 。 正 确 性 还 应 包括 纠 错 衣 
力 ， 程 序 结构 精巧 ， 使 用 灵活 方便 ， 结 果 正 确 并 能 达到 预定 
的 精度 要 求 。 

(2) 通用 性 通用 性 包括 几 方面 内 容 : 一 是 一 个 程序 对 
饲 一 类 问题 的 不 同情 况 都 可 适用 ， 二 是 不 能 因 人 、 因 时 、 基 
地 而 异 ， 三 是 一 个 程序 稍 作 修改 后 ， 能 完成 不 同 功能 或 满足 
不 同 解 题 要 求 。 

(3) 可 靠 性 对 一 个 系统 来 说 ， 可 靠 性 和 正确 性 同样 至 
关 重 要 。 一 个 程序 不 能 运行 一 次 正确 ， 多 次 运行 就 失当 :或 
者 调试 时 可 行 ， 但 进入 反复 操作 后 出 问题 ;或 者 数据 旦 较 少 
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时 正确 ， 一 旦 大 批量 输入 时 出 现 异 常情 况 ， 所 有 这 些 都 体现 
了 程序 的 可 靠 性 。 一 个 好 的 程序 ， 应 该 经 得 起 长 时 间 及 大 批 
量 数 据 的 考验 。 

(4) 实用 性 ”程序 设计 应 具有 实用 价值 ， 讲 究 经 济 效 
益 。 除 此 以 外 ， 程 序 设 计 应 考虑 到 如 何 使 别人 使 用 时 感到 方 
便 、 灵 活 ， 有 三 意 用 自己 设计 的 程序 。 程 序 的 易 读 性 要 好 ， 又 
便于 修改 。 因 此 实用 和 面向 用 户 ， 是 评价 一 个 程序 优 劣 的 重 
要 据 准 。 


4 出 发 点 


有 了 程序 设计 的 标准 ， 对 程序 设计 的 评价 就 有 了 依据 ， 
一 般 来 说 ， 我 们 希望 编制 的 程序 结构 清 听 ， 易 读 易 改 ， 便 于 
移 鼻 ， 结 果 精 确 ， 使 用 方便 。 同 时 在 程序 设计 中 还 有 几 点 应 
予 注意 : 

*， 解决 一 个 实际 问题 的 方法 是 多 种 多 样 的 ， 设 计 思 路 也 
不 忌 配 同 ， 但 我 们 的 立足 点 还 应 放 在 节省 机 时 和 减少 存 贮 空 
间 上 ， 只 有 当 两 者 不 能 兼顾 时 ， 可 根据 实际 需要 而 偏重 一 
方 。 

。 不 应 请 目 追 求 快 的 响应 速度 ， 而 损失 掉 许 多 别 的 优 
点 ， 或 者 为 了 提高 速度 而 在 其 它 方面 带 来 不 应 有 的 麻烦 。 要 
切合 实情 ， 量 力 而 行 ， 不 要 得 不 偿 失 。 

*。 也 不 要 过 分 追求 减少 内 存 空间 ， 使 程序 易 读 性 很 关 ， 
带 来 阅读 、 调 试 、 修 改 的 困难 。 我 们 的 出 发 点 是 ， 为 确保 程 
序 生 行 的 可 靠 及 方便 用 户 ， 要 不 惜 代价 增加 一 些 必 要 的 语句 
或 年 释 ， 同 时 也 要 尽 可 能 地 节省 内 存 。 

“要 讲究 技巧 ， 注 意 程 序 的 优化 。 由 于 在 数据 、 信 息 处 : 
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理 中 ， 是 人 -机 直接 交互 ， 因 此 ， 应 用 一 些 技巧 效果 会 被 人 
直接 感受 到 、 体 会 到 ， 而 当 人 们 在 实际 中 切身 感到 好 处 时 ， 
技 九 的 成 效 就 越发 明显 。 当 然 ， 一 个 程序 也 不 是 越 巧 越 好 ， 
抛 弯 越 多 越 好 ， 严 防 弄 巧 成 抽 ， 适 得 其 反 。 


5. 基本 方法 


程序 设计 技术 性 强 ， 也 很 灵活 ， 有 些 问题 的 设计 还 很 复 
杂 ， 没 有 统一 的 模式 ， 但 是 ， 根 据 程序 设计 的 基本 思路 ， 性 
上 质 及 过 程 ， 总 还 能 总 结 出 一 些 比较 普遍 的 方法 。 现 简 氢 如 
下 : 

程序 设计 的 基本 方法 是 故 举 、 归 纳 和 抽象 。 

建立 在 抽象 原则 基础 上 的 一 种 常用 设计 方法 是 逐步 求 
精 。 

对 于 规模 较 大 的 问题 的 程序 设计 ， 是 采用 结构 模块 化 。 

逐步 求 精 法 是 一 种 适应 性 很 强 并 被 广泛 采用 的 程序 设计 
方法 ， 其 要 点 是 : 

。 对 问题 全 局 进行 分 析 # 

“ 建立 抽象 模型 

“确定 总 体 模块 图 8 

“明确 各 子 模块 功能 及 相互 关系 ; 

“。 编制、 调试 每 一 个 子 模块 

*。 完善 整体 结构 。 


6. 基本 技巧 


程序 设计 的 技巧 ， 包 括 的 内 容 是 十 分 广泛 的 ， 主 要 有 语 
言 编程 技巧 ， 程 序 调试 技巧 ， 文 件 使 用 技巧 ， 软 件 加 密 技 
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巧 ， 机 器 使 用 技巧 ， 功 能 扩展 技巧 ， 数 据 维护 技巧 等 等 。 对 
于 这 些 技巧 ， 将 在 本 书 其 它 章 节 逐 一 叙述 。 

在 用 BASIC 语 言 进 行程 序 设计 时 ,主要 有 下 面 四 种 技巧 ， 

(1) 简单 程序 设计 “这 是 初学 者 程序 设计 人 门 的 必 经 之 
路 ， 它 包括 数据 输入 、 进 行 计算 、 输 出 结果 、 结 束 停机 由 个 
内 容 。 由 于 程序 是 按 行 号 由 小 到 大 顺序 执行 的 ， 因 而 比较 简 
单 。 常 用 的 语句 有 LET，INPUT，READV/DATA,，PRINT， 
REM，END 等 。 

简单 程序 设计 虽然 容易 ， 但 它 能 匀 画 出 一 个 程序 的 全 
瑶 ， 描 述 了 程序 的 主要 结构 ， 即 变量 取 值 、 完 成 计算 并 保留 
和 结果、 提供 数据 、 显 示 结 果 和 结束 程序 这 五 个 部 份 。 明 确 这 
一 点 ， 对 我 们 设计 一 个 程序 是 十 分 重要 的 ， 因 为 任何 事物 都 
是 由 低级 到 高 级 ， 由 简单 到 复杂 。 

(2) 分 支 程序 设计 “实际 问题 比较 复杂 ， 解 决 问 题 的 程 
序 党 常 带 有 分 支 ， 因 此 ， 我 们 十 分 需要 一 种 具有 判断 能 力 的 
:控制 转移 手段 ， 以 便 对 程序 进行 有 效 的 控制 。 这 就 出 现 了 分 
支 程序 设计 ， 而 计算 机 按 给 定 条 件 进 行 比 较 、 分 析 、 判 断后 - 
决定 程序 的 走向 。 常 用 的 有 无 条 件 转向 语句 GOTO ， 条 件 控 
制 语句 IEMTHEN， 人 恢复 数据 区 语句 RESTORE ， 控 制 转 
向 语句 ON/GOTO，ONVTHEN ，ONVGOSUB ， 以 及 转子 和 
返回 语句 GOSUB/RETURN 等 等 。 

我 们 可 以 根据 一 定 的 条 件 ， 选 择 不 同 的 语句 ， 控 制程 序 
的 流向 ， 以 解决 各 种 各 样 的 分 支 问题 。 必 须 着 重 指出 ， 条 件 . 
活 句 的 使 用 ， 在 BASIC 语言 中 占有 很 重要 的 地 位 ， 同 样 ， 
其 技巧 性 也 是 很 强 的 。 

(3) 循环 程序 的 设计 “循环 程序 在 我 们 解决 实际 问题 的 
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时 候 ， 有 着 极其 广泛 的 应 用 。 循 环 的 技巧 可 以 实现 多 个 数据 
输入 和 大 量 重复 的 计算 。 利 用 循环 的 方法 进行 程序 设计 ， 既 
可 节省 存 贮 单元 又 可 以 提高 计算 效率 ， 这 是 程序 设计 中 最 主 
要 的 和 最 常用 的 方法 。 循 环 语句 比较 简单 ， 就 是 FORMNEXT， 
但 应 用 时 技巧 特 强 ， 且 十 分 灵活 。 

不 要 忘记 ， 人 们 利用 计算 机 快速 准确 且 具 有 逻辑 判断 的 
特点 ， 为 自己 解决 那些 需要 反复 进行 ， 而 在 处 理 形式 上 又 完 
全 相同 的 工作 时 ， 主 要 是 依靠 循环 程序 来 进行 。 

循环 是 BASIC 语言 和 一 切 高 级 语言 的 核心 。 

《4) 调用 子 程序 的 设计 “了 予 程 序 是 程序 结构 的 一 种 形 
式 ， 使 用 十 分 广泛 。 子 程序 在 程序 设计 中 常常 用 来 表示 那些 
在 切 能 上 具有 一 定 独 立 性 并 在 程序 的 不 同 部 位 要 被 经 党 使 用 
的 程 产 段 ， 用 以 简化 设计 并 使 程序 结构 清晰 。 

对 于 一 些 重 复 计 算 的 问题 ， 编 制 一 个 相对 独立 的 程序 
段 ， 在 主 程序 的 适当 位 置 安排 调用 点 ，GOSUB/RETURN 语 
句 能 保证 正确 调用 和 自动 返回 。 

对 一 个 规模 较 大 或 需要 完成 多 种 功能 的 系统 来 说 ， 往 往 
需要 分 段 设计 ， 然 后 连接 起 求 ， 子 程序 的 技巧 可 以 解决 程序 
段 之 间 的 连接 问题 。 使 整个 程序 或 系统 成 为 一 个 有 机 结合 的 
整体 。 

程序 设计 的 基本 技巧 ， 基 本 上 就 是 上 面 四 个 方面 。 在 这 
里 不 氢 逐 一 详 述 ， 但 须 指出 一 点 ， 即 实际 问题 的 设计 常常 是 
四 种 基本 技巧 的 有 机 组 合 。 


7 了。 实例 分 析 
一 个 好 的 程序 应 包括 下 述 指标 ， 
名 


。 运行 结 果 正 确 

。 有 足够 的 精度 ; 

。 运行 速 度 较 快 

。 占 用 内 存 较 少 ? 

。 简 单 清晰 易 慌 。 

而 所 有 这 一 切 常常 取决 于 好 的 解 题 方法 。 

下 面 我 们 通过 两 个 实例 的 求解 ， 来 探讨 一 下 不 同 的 解 题 
方法 对 程序 质量 的 影响 。 

例 1， 求 ， 

了 =1-22+32 一 42+ .+992 一 1002 
方法 1 ， 改 写 原 式 : 

了 = (12+32 二 52+e+992) 一 (22++42+62 二 。%+1002) 

= 4- 了 3 
浅 中 :，4= 昱 二 3 二 99 
了 B=22+42+ .+100? 

问题 归结 为 求 奇数 平方 和 及 偶数 平方 和 静 差 值 。 

求 和 最 好 用 循环 语句 ， 循 环 外 设置 初 值 为 零 ， 循 环 体 求 
平方 和 ， 即 S=S+ NA2， 最 后 安排 Z=4- 互 并 打印 ， 故 
-有 程序 Nal : 

1B8:REM NO. : 

20 :=B 

38:FOR Nz1TO 99 
STEP 2 

4 所 = 和 +NA2 


S9:NEXT N 
启 B ,RE 


7B:FOR N=2T0 16B 

STEP 2 
88:B=B+NA2 
9B;NEXT IN 
1BB: Y= 人 有-B 
118:LPRINT ”Yan3Y 
12093;:END 


Y=-5058 

这 个 程序 结构 清楚 ， 层 次 分 明 ， 易 读 性 好 。 不 足 之 处 * 
占用 内 存 多 〈120 步 ) ， 速 度 慢 〈24 秒 ) 。 

方法 2 ， 将 程序 Nal 改写 成 Nale: 


10:CLEGR :REM NO。 
1Q 

209:FOR N=>1TO 99 
STEP 22:69=A6+NA2 
:NExT_N 

3D:FOR N=2TO 158 
STEP 25PB=B+NA2 
:NEXT NM 

4B:LPRINT. "YY=1" ;9- 
已 


Y=-5D59 


程序 ale 和 程序 Neol 有 以 下 几 点 区 别 ， 
个 两 个 程序 设计 思想 完全 一 样 ， 程 序 Nale ， 改 用 扩展 
BASIC 语句 ， 因 而 比较 简短 ， 且 节省 内 存 ( 变 成 85 步 ) 。 
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四 运行 时 间 缩 短 了 ， 由 24 秒 变 为 22 秒 。 

@@ 用 CLEAR 语句 ， 省 去 两 个 循环 的 初始 化 条 件 ， 即 山 
去 4=0，B=0。 

亿 程 序 1l 的 100、110 两 句 ， 合 并 成 Nale 的 40 句 。 

@ 省 去 END 语句 ,一 般 微 型 计算 机 都 是 允许 的 
(FORTRAN 语言 不 允许 省 去 结束 程序 语句 END ) 。 

@@ 为 了 提高 速度 ， 可 以 把 REM 注释 语句 放 在 程序 的 最 
后 ， 因 为 它 是 非 执行 语句 ， 不 影响 机 器 运行 速度 。 

@ 程 序 la 的 第 10 句 ， 著 写成 

10:REM:Nala:CLEAR 则 重复 运行 程序 Nale ,每 次 结 
果 会 不 同 。 因 为 REM 是 非 执 行 语句 ， 这 样 CLEAR 这 一 伍 
.将 不 执行 ， 存 贮 在 了 中 的 值 没 有 被 清除 掉 ， 重 新 运行 时 了 值 
包括 了 前 一 次 的 结果 。 

由 于 上 述 两 个 程序 设计 思想 完全 相同 ， 后 者 虽然 节省 了 
一 些 内 存 ， 速 度 也 有 微小 提高 ， 但 程序 质量 上 并 没有 实质 性 
的 提高 。 还 需要 继续 改进 。 

方法 3 ,考察 原 式 ;了 = 1- 22+32-44+ -+992 一 1002 

从 数值 上 看 ， 它 们 是 顺序 递增 的 ， 每 一 项 均 为 N2(N = 
1]，2，3，'……100)。 

从 等 号 上 看 ， 每 一 项 又 是 “+”、“- ”相间 的 ， 其 通 
式 为 (- 1 ， 7 是 奇数 时 为 +1，72 是 偶数 时 为 - 1。 

故 有 以 下 通 项 公式 ， 


Cn =( 一 1)?972 (=:1，2，3， ,100) 
1010 
原 式 为 ， 了 = Z)(-1)50 
用 o1 
见 程序 Na2， 


1D;REM NO,2 

29:Y=B 

394;FOR N=1T0 !b9 

4B;Y=Y+(-1ACN+d4》 
水 NA2 

SD:NEXT HN 

6D:LPRINT "Y=n3Y 


Y=-5S849.993999 


从 上 面 运行 结果 可 以 看 出 ， 这 个 程序 除了 比较 简洁 ， 内 
存 少 (72 步 )》 外， 没有 什么 人 优点， 相反， 缺点 倒是 明显 的 ， 
车 果 不 精确 ， 速 度 慢 。 同 时 ， 本 程序 中 用 了 负数 的 乘 方 运 
算 ， 有 的 机 器 是 不 执行 的 ， 如 SHARP PC-1214。 

其 它 机 器 如 SHARP PC-1500 ,APPLE-T， 紫 金 - 工 ， 
中 华 学 习 机 等 均 能 执行 本 程序 ， 但 迷 度 却 不 够 。 正 确 值 为 
一 5050。 

方法 4 ， 为 了 避 开 上 述 解 疲 中 负数 的 索 方 运算 ， 对 符号 
和 和 负数 乘 方 采 用 下 面 的 方法 处 理 ， 哆 程序 in3 清单 

1D:RENM NO.3 

人 加 站 YY D 下 二 二 | 

3D:FOR N=1T0 1pB 

4D:T:=(-1) 米 下 ; 下 =YdT 
炎 NA2 

SD:NEXT N 

68:LPRINT "Y="jiY 


Y=-5849.393333 


径 序 中 了 = 0 是 为 了 求 和 ，T= -1 和 40 句 对 应 ，z 为 
奇数 了 为 正 ，7 为 偶数 了 为 负 ， 从 而 解决 了 “+?”、“-? 
相间 为 问题 。 

但 是 这 个 程序 也 不 佳 , 速 度 慢 (25 秒 ) ,精度 不 高 。 唯 一 的 
特点 是 避 开 了 负数 的 乖 方 运算 ， 这 样 任何 计算 机 均 可 执行 。 

蜂 便 说 明 一 下 ， 在 BASIC 语言 中 ， 求 负数 的 耘 方 是 不 
允许 钓 ， 因 为 机 器 做 乘 方 是 化 成 对 数 来 做 ， 负 数 的 对 数 无 意 
义 。 六 而 一 般 机 器 将 拒绝 执行 。 有 的 机 器 所 以 会 执行 〈 如 
PC=15G0》 ， 是 因为 软件 程序 (BASICG 话 言 用 解释 程序 ) 具 
有 更 多 的 功能 。 

方法 5 ， 改 写 原 式 ; 

了 = (和 企 一 22》+(32- 42) + 十 (992+1002) 

黄道 项 式 为 ，av= 了 于- (2+1) =1， 为 第 一 项 ， 
1 = 3 为 第 二 项 ，.….，2=99 为 第 50 项 ) 

红 开 上 式 ，c.= - (272+1) (=1,3，5，- 99) 
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Y= 了 >)-(22+1) (=13, 5 99) 


二 四 
心 对 上 式 只 要 安排 一 个 循环 ， 步 长 STEP 为 2 即 可 ， 喝 
程序 黄 4 
19;:REM NO.4 
28:Y=9 
38:FOR 'N=1TO 99 
STEP 2 
49:Y=Y-(《2 炒 N+1) 


5358:NEXT N 
68:LPRINT "Y= "iiY 


Y=-S858 1 


程序 Ne4 和 前 面 几 个 程序 相 比 ， 有 以 下 几 个 特点 : 
申 程序 较 短 ， 占 用 内 存 少 〈67 步 ) 。 
@@ 运 行 较 快 ， 只 用 了 2 秒 钟 ， 比 其 它 几 个 程序 时 间 缩 短 
了 十 多 倍 。 
电 精 度 高 ， 结 果 正 确 。 
由 只 有 一 重 循环 ， 简 捷 明 了 。 
加 计算 方法 好 ， 避 开 了 乘 方 运算 ， 只 进行 
= 了 7-(2*N +1) 的 操作 。 
方法 6 ， 本 题 还 有 更 好 的 解法 ， 事 实 上 ， 
了 =12 一 22+32: 一 4 十 十 992 一 100 
=( 拉 一双) (3 一 42) 二 二 (992 一 1002) 
=(-3)+(-7)+(-11)+ +(-199) 
= 一 NANT+1)V2 (= 2，4，6，… ,100) 
N =2 时 ， 是 计算 原 式 最 初 两 项 的 值 ，N =4 有 时， 是 求 
彰 四 项 的 结果 ，AN = 100 时 ， 即 为 原 式 的 最 后 答案 。 
见 程序 No 5: 


JJD:REM NO.5 
28:N=108D:Y=-Nk(N+ 
122:LPRINT 站 
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显然 ， 程 序 Nae5 比 上 述 各 程序 为 优 。 基 本 上 符合 一 个 优 
化 程序 的 各 项 指标 要 求 。 
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例 2 ， 一 个 提高 程序 运行 速度 的 实例 : 
大 家 都 知道 古代 印度 国王 侈 军训 党 他 的 宰相 达 依 尔 〈 国 
莹 象棋 发 明 者 ) 的 故事 吧 ! 国王 问 宰相 需要 什么 ， 达 依 尔 
说 ，“ 国 王 只 要 在 国际 象棋 棋盘 的 64 个 格子 里 放 满 小 麦 ， 我 
就 感恩 不 尽 了 。 我 只 要 求 第 一 格 放 一 粒 ， 第 二 格 放 二 粒 ， 以 
后 每 格 放 的 粒 数 是 前 格 的 二 倍 。” 国 王 应 多 了 ， 结 果 全 印 族 
葛 粮 食 全 部 用 完 也 没有 填 满 棋盘 的 格子 。 据 说 多 少年 来 淮 也 
没有 算 清 过 这 笔 帐 ， 当 然 更 谈 不 上 谁 是 算得 最 快 的 人 。 
这 个 问题 实际 上 是 求解 算式 ， 
了 =1+2+22+。…+263 
-San 
艇 法 1 ， 用 分 支 和 计数 求 和 的 方法 计算 ， 见 程序 Na6， 
1D:REM NO.6 
2D:Y=D:N=B 
3B:Y=Y+2AN 


4D8:N=N+1 
5p;, IF NK=63THEN 3 
9 


6D:LPRINT “Y=1 YY 
END 


Y= 1.8446744B7E 19 


革 


二 述 程序 运行 时 间 11 秒 〈 机 种 PC-1500A) 。 
解法 2 ， 用 循环 语句 求解 ， 见 程序 Nm7， 
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19:REM ND.。7> 

283:Y=1 

3592:FOR N>=1T0 63 

40:Y=Y+2AN 

D9:NEXT N 

56D:LPRINT "Y="3iY， 
END 


Y= 1.8446744D27E 19 


本 程序 运行 时 间 9 秒 。 

比较 上 面 两 个 程序 ,运行 结果 相同 ,设计 思想 相近 ， 但 运 : 
行 速度 各 异 。 一 般 来 说 ,用 FOR/NEXT 语 句 , 比 用 IFVTHEI 
语句 运行 时 间 要 短 。 这 是 由 于 两 种 语句 所 编程 序 在 运行 时 走 
的 路 径 不 同 。 用 FORVNEXT 语句 循环 时 ， 运 行 至 NEXT 后 
贡 一 个 步 长 ， 然 后 立即 转 到 循环 体 或 执行 NEXT 下 面 的 一 个 
语 名 而 IF/THEN 语句 ， 运 行 至 THEN xx 时 ， 要 返回 
到 指定 的 x x 行 号 ， 这 时 机 器 要 从 头 顺 序 查 找 ， 一 直 找 于 
x x 行 号 ， 才 继续 运行 ， 所 以 它 比 FORVNEXT 语句 ， 在 热 
行 速 度 上 费时 较 多 。 

解法 3 ， 避 开 乘 方 运算 ， 

上 面 两 个 程序 ， 也 可 以 不 用 乘 方 运算 。 这 对 提高 程序 的 
运行 速度 是 有 利 的 。 

考 谍 原 式 各 项 ， 后 一 项 均 为 前 一 项 的 2 倍 。 即 

Zn 二 Cn-lIX2 


这 就 给 我 们 一 个 启示 ， 如 果 在 计算 前 一 项 ws-: 后 ， 能 阁 
44 


“从 项 的 值 保 存 好 ， 风 在 求 后 一 项 他 s 时 ， 只 要 科 以 2 即 可 。 
这 样 就 避 开 了 乘 方 运算 ， 它 可 以 大 大 节省 计算 时 间 。 故 有 程 


序 No8， 


108:REM ND.8 

201:A=1 

38:Y= 

4D:FOR N=1T0 63 

3 各 = 台 k2 

怕 8 YY=Y+ 

日 :NEXT N 

89:LPRINT ”YY=" 3 
FND 


Y= 1.8446744B6E 19 


上 述 程序 运行 时 间 为 4 秒 。 

从 以 上 三 个 程序 ， 还 可 以 看 到 这 样 一 个 事实 ， 解 闭 1、 
2 程序 较 短 ， 但 运行 速度 较 慢 。 解 法 3 程序 虽 长 一 点 ， 但 运 
行 时 间 较 得 。 由 此 可 知 ， 程 序 的 长 得， 是 和 占用 内 看 船 多 少 
成 比例 的 ， 但 和 程序 执行 的 时 间 并 不 完全 成 正比 。 党 党 有 这 
样 的 情况 ， 程 序 较 长 ， 计 算 方法 较 好 ， 运 行 速度 很 快 ， 这 就 
媳 所 谓 以 存 贮 空间 为 代价 换取 了 速度 的 提高 。 

解法 4 ， 用 数学 归纳 法 来 解 ， 


有 3 
考察 原 式 ， 工 二 2 
著 取 一 项 则 N=0 7Y=20=1 
一 2A+1 一 上 
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车 取 二 项 则 六 =1 了 =20+21 


=1+2 
= 3 
事实 上 六 =1 时 了 =2x+1-1 
= 了 3 
人 则 m = 
了 = en .十 267 
二 2N+1 一 1 
=263+1l 一 1 
= 264 一 1 
故 有 程序 职 9， 
19:REM NO0.9 
298:Y=2A64-】 
3B:LPRINT Yi 
END 


Y= 1.844674482E 19 


运行 时 间 ，1 秒 

同上 面 三 个 程序 相 比 ， 本 程序 较 好 ， 程 序 得， 占用 内 在: 
运行 速度 快 。 

最 后 说 明 一 下 ， 前 面 提 到 了 少 用 乘 方 的 观点 ， 特 别 是 要 


求 精度 较 高 的 计算 ， 最 好 不 用 乘 方 ， 因 为 它 的 计算 既 不 够 粳 
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稀 ， 且 速度 又 慢 。 为 什么 解法 4， 仍 然 用 了 乘 方 运算 ， 而 不 
失 为 一 个 好 的 程序 呢 ? 道理 也 是 不 难 明白 的 。 

程序 Nw6，No7 都 用 了 乘 方 运算 ， 并 且 都 做 了 64 次 的 乘 
方 求 和 ， 而 程序 No9 只 做 了 一 次 乘 方 2 人 64 然后 减 1 ,所 以 
程序 No9 快 。 

程序 Ne8 虽然 不 做 乘 方 ， 但 反复 向 乘法 和 累加 ， 并 进行 
63 次 循环 (FOR/NEXT 循环 ) ， 是 需要 时 间 的 ， 而 程序 
No9， 不 要 循环 ， 一 次 求 乘 方 解 决 ， 因 而 较 快 。 

通过 上 述 两 个 实例 分 析 ， 我 们 初步 匀 画 了 程序 设计 技巧 
多 部 份 面 狐 。 可 以 看 出 ， 找 到 一 个 好 的 解 题 方法 ， 是 高 质量 
地 进行 程序 设计 的 核心 。 这 些 实例 也 可 以 作为 程序 设计 技巧 
的 引子 ， 希 望 能 起 到 开阔 视野 、 启 迪 思 维 、 抛 苇 引 玉 的 作 
攻 。 
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二 、 程 序 设计 步 又 和 方法 


为 利用 计算 机 来 解决 实际 问题 ， 一 般 需 要 经 过 如 下 几 个 
步骤 。 


1， 了 解 问题 性 质 


这 是 整个 编制 过 程 的 基础 ， 也 是 初学 者 常常 容易 忽视 的 
问题 。 

了 解 问题 的 性 质 ， 就 是 分 析 待 编 系 统 要 解决 什么 问题 ， 
有 什么 特殊 要 求 ， 有 多 大 的 信息 量 ， 数 据 量 和 内 存 有 无 矛 
慎 、 运 行 速度 是 否 满 足 要 求 ， 变量 够 不 够 用 等 等 。 只 有 对 上 
述 诸 向 题 进 行 仔细 分 析 ， 才 能 找到 解决 问题 的 办 法 。 

“ 例如， 编制 一 个 可 以 满足 任意 精度 的 除法 运算 程序 。 

分 析 ， 

@ 题目 要 求 编制 满足 任意 精度 的 除法 算 题 程 序 ， 这 就 . 
要 我 们 认真 思考 了 ， 因 为 计算 机 输出 的 有 效 数 ， 其 位 数 是 有 - 
限 的 ， 中 华 学 习 机 ，APPLE- I， 紫 金 - 工 ，PC-1500 等 机 副 
都 是 八 位 字 长 微机 ， 大 都 只 能 输出 6 一 8 位 有 效 数 ， 它 们 都 
不 能 满足 本 题 要 求 。 解 决 满足 任意 精度 的 问题 ， 就 是 本 题 的 
难点 和 关键 所 在 。 

图 ”除数 不 能 为 0， 否则 除法 无 法 执行 。 

二 ”程序 中 应 考虑 判别 商 是 正 数 还 是 负数 的 条 件 语句 ， 
否则 结果 不 正确 ， 


1 了 


国 打印 输出 中 ， 必 须 考虑 商 的 整数 部 份 和 小 数 部 伶 。 

图 为 了 处 理 小 数 点 以 后 各 位 的 运算 过 程 ， 以 达到 任意 
精度 的 要 求 ， 必 须 考虑 不 够 补 “0 ”的 问题 。 

图 “为 满足 任意 精度 要 求 ， 程 序 中 小 数 点 以 后 离 的 各 
位 ， 必 须 正确 安排 ， 要 求 多 少 位 ， 就 算 到 多 少 位 。 

通过 上 述 分 析 ， 我 们 对 本 题 可 以 说 有 了 一 个 清楚 的 了 
散 ， 剩 下 来 的 问题 ， 就 是 按 上 述 各 点 分 析 安排 程序 结构 了 。 


2 绘制 程序 框图 
程序 框图 是 一 种 流程 图 、 它 是 用 各 种 几何 图 形 及 尺 字 说 
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明 来 直观 地 描述 计算 过 程 的 有 向 图 。 它 的 优点 是 形象 、 直 
观 ， 既 能 表达 程序 的 设计 思想 ， 又 能 看 清 程序 的 编制 结构 ， 
同时 便于 阅读 、 检 查 、 修 改 程序 。 学 会 并 习惯 画 框图 ， 是 继 
制程 序 的 基本 功 ， 它 被 广泛 采用 在 各 种 高 级 语言 的 程序 设计 
中 。 

例如 对 上 面 的 高 精度 除法 运算 ， 我 们 可 以 绘制 成 图 1 。 

我 们 再 次 强调 ， 掌 握 框 图 的 绘制 技术 是 十 分 重要 的 ， 不 
言 自明 ， 一 个 大 型 应 用 程序 的 设计 ， 不 使 用 框图 很 难 顺利 地 
将 程序 各 语句 书写 出 来 。 

框图 可 以 使 程序 设计 减少 错误 ， 又 是 从 事 计 算 机 应 用 工 . 
作者 之 间 一 种 技术 交流 的 手段 和 工具 。 


3. 强调 设计 思想 


这 是 编制 任何 一 个 实际 问题 的 程序 都 要 首先 考虑 的 。 在 
型 清 问题 的 性 质 、 特 点 、 要 求 以 后 ， 如 何 解决 问题 ， 应 在 头 
脑 中 形成 一 个 完整 的 思索 、 判 断 、 推 理 。 

对 问题 分 析 得 愈 透彻 ， 考 虐 得 愈 周 到 ， 出 错 的 机 会 就 愈 
少 ， 不 仅 如 此 ， 程 序 设 计 思 想 的 优 禾 ， 关 系 到 程序 设计 的 质 
量 。 

例如 ， 上 面 提 及 的 除法 程序 ， 在 设计 思想 上 应 如 何 考 虑 
呢 ? 

为 了 实现 高 精度 除法 运算 ， 可 以 模仿 人 们 手 算 除法 的 过 
程 ， 先 求 商 的 最 高 位 ， 并 把 它 打印 出 来 ， 再 用 余数 去 除 以 除 
数 ， 求 得 商 的 次 高 位 ， 如 此 循环 往复 ，，…… 。 这 一 过 程 只 要 
商 不 是 一 个 有 限 小 数 ， 就 可 以 一 直 进 行 下 去 ， 直 到 你 所 和 希 充 
的 精度 为 止 。 
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变量 设置 ，X， 了 ，2Z 分 别 为 被 除数 、 除 数 、 精 度 。 精 
度 指 小 数 点 以 后 的 位 数 。 

好 为 商 ， 即 M =INT( 和 XV7) 

安排 一 个 循环 ， 以 处 理 小 数 点 以 后 各 位 的 运算 过 程 ， 即 
余数 变 成 被 除数 ， 仍 用 式 代 表 余 数 ; 和 = (和 -MsZ)*10， 
其 中 乘 以 10 ， 完 全 是 模仿 人 工笔 算 除 法 的 过 程 ， 不 够 补 
“0”， 循 环 程序 如 下 ， 


120 FOR Jam1l TO Z 
13O XXX (X ~ MY Kx 0 
140 M= INT (X YY) 
150 PRINT MY 
160 NEXT 可 
这 里 140 句 中 的 丰 是 指 小 数 点 以 后 商 的 各 位 ，2 为 要 求 
的 精度 ， 要 求 多 少 位 ， 就 算 到 多 少 位 。 
对 于 除数 不 应 为 “0 ”的 问题 ， 在 程序 中 只 要 安排 判断 
语句 ， 看 输入 是 否 合理 ， 故 有 以 下 程序 段 ， 


20 INPUT X,Y，Z 

25 PRINT "X="5XwwY="3Y，"Z="3 7Z 

28 PRINT "X/Y="5X / Y 

S0 IFY《 >0THEN 60 

40 PRINT "DIVSION BY ZERO ERROR" 
50 ”6G0TO 20 


为 状 别 商 是 正 数 还 是 负数 ， 安 排 下 面 二 条 语句 ， 


6a0 IF X#x 上 Y> = 0THEN 8o 
70 PRINT "一 "3 


当 商 的 正 、 负 问题 处 理 后 ， 破 除数 和 除数 均 以 正 数 处 
理 ， 即 ， 
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80 X ABS (XI) 
930 YY ABS (Y) 


利用 取 整 函数 INT(K) ,可 以 方便 地 求 出 商 的 整数 部 份 ， 
第 一 次 要 把 商 打印 出 来 ， 并 在 商 内 的 后 面 打印 一 个 小 数 点 ， 
划 ， 


1GOO ME INT (X YY) 
110 PRINT 人 8 。 


至 此 ， 全 部 设计 完成 ， 下 面 给 出 程序 Ne 10 的 完整 清单 和 一 
个 运算 实例 ， 
LITST 


tO REM NO.1O 

20 INPLT XyYsZ 

2 RINT = X “YY “了 二 1 和 了 

刀 PRINT "XAY= EX 学 

30 IFYS >eTHEN 60 

40 PRINT "DIVSION BY ZERO ERROR" 


s0 GDTO 20 

6O IFXXHXY> 0OTHEN 80 
7 PRINT 一“ 

BOX>= ARS (X) 

309Y= 人 BGS (Y) 

100OM= INT (X / Y) 

11O0 PRINT M8 。1 

1<oQO FOR JJ = 1 TO 之 
TSOX=(X 一 MAY K# LO0 
1409M= INT (X / Y) 

50 PRINT MI 

160QO NEXT 可 

4709 END 


了 了 24 三 1 马 

33119 

?369 

X 一 2 和 5 可 Y=1L TI Z= 避 0 
X7Y=205。9931597 
G 当 ,可 1 本 中 各 避 本日 各 当 本 4 和 2 1 间 4 号 79949579 日 133 
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上 于 这 个 程序 实例 ， 是 计算 到 小 数 点 以 后 60 位， 理论 
和 实践 证 明 ， 可 以 精确 到 小 数 点 以 后 任意 位 。 

28 铝 ， 是 计算 机 一 般 进 行 除法 运算 的 结果 ， 它 只 给 出 小 
数 点 以 后 6 位 有 效 数 字 ， 写 到 程序 中 ， 是 为 了 与 高 精度 除法 
作为 对 比 。 

注意 ，110 名 打印 的 玉 值 ， 是 高 的 整数 部 份 ， 而 150 名 
输出 的 到 值 ， 是 小 数 点 以 后 的 各 位 值 。 


4 建立 数学 模型 
任何 一 个 实际 问题 ， 最 后 都 要 用 数学 表达 式 来 摘 述 ， 再 
按照 BASIC 规则 书写 程序 。 因 此 ， 把 实际 问题 抽象 成 数学 
模型 ， 是 编制 程序 的 又 一 重要 方法 。 
例如 ， 某 车 站 托运 行 李 的 收 费 规 定 ， 小 于 50kg ， 按 
0.15 元 /kg 收费 ， 超 过 50kg ， 其 超过 部 份 按 0.20 元 /kg 收 
费 。 
对 此 问题 ， 可 以 按 下 述 公 式 处 理 ， 
ee 0 忆 矿 过 50kg 
X = 
(0.15Xx50+( 了 -50)x0.20 多 >S0kg 
式 中 ， 允 为 货物 重量 ， 尺 为 收费 金额 。 


这 里 的 计算 公式 ， 就 是 对 实际 问题 的 数学 处 理 ， 也 就 是 
说 ， 我 们 建立 了 数学 模型 。 
又 如 求 两 点 间 的 距离 ， 其 数学 公式 为 : 
刀 = w(X: 一 和 2 + (六 二 272 
求 自然 数 1 到 20 的 阶乘 的 和 ， 其 数学 表达 式 为 ， 
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站 一 】 
由 此 可 见 ， 不 同 的 问题 ， 其 数学 模型 是 不 一 样 的， 而 一 
且 正 确 建立 了 数学 模型 ， 编 制程 序 就 容易 多 了 。 


5.， 选用 计算 方法 

一 个 计算 问题 可 能 在 不 同 的 条 件 下 使 用 不 同 的 公式 ， 而 
同一 个 问题 即使 取 相同 的 公式 也 可 能 有 不 同 的 计算 方法 ， 选 
用 好 的 解 题 方法 ， 是 高 质量 的 进行 程序 设计 的 核心 。 

例如 ， 求 $ 刚刚 超过 5 的 调和 级 数 的 项 数 。 即 求 ， 


这 1 
Se 
下 面 给 出 几 种 解 题 方 法 ， 试 比较 其 优 劣 : 
由 410 5 


-20 FOR It TQON 
s0S=Sd+dtyI 
40 PRINT TI:S 

SO NEXT 工 

ao END 
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@ 10 


S = 0 
20 TI = 1 
30S=S+1 /TI 
40 IF S > 与 THEN 70 
SOTI=I+t 


60 ”60TO so 
70 FRINT Si 
80 END 


人 ) 
10S= 9 
20 FOR I = 1 TO 2009 
30S=S+17I 
40 IFS >5 THEN 60 


50 NEXT I 
60 PRINT S,1I 
70 “END 
直 
10S=0 
20 FOR TI = 1 TO 200 
s0SamS+17I 
40 TITF S >5 THEN PRINT S, TI: END 
s0O NEXT II 


第 一 种 方法 不 行 ， 因 为 六 是 未 知 数 ， 对 无 赋值 的 变量 ， 
有 的 机 器 不 接收 ， 有 的 机 器 当 “02” 处 理 ， 但 都 指出 语法 错 
误 。 第 二 种 方法 是 正确 的 ， 但 程序 编制 稍为 复杂 一 些 了 ， 用 
GOTO 语 句 来 控制 循环 ， 执 行 速 度 较 慢 。 第 三 种 方法 可 以 ， 
取 N =200， 是 一 个 投 试 的 量 ， 对 本 题 可 以 采用 假设 一 个 已 
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知 是 ， 投 试 结果 ， 唯 程序 不 够 简练 。 第 四 种 方法 较 好 ，40 句 
的 安排 就 是 一 个 技巧 ， 当 得 到 满足 题 意 的 解 后 ， 即 打印 输 
出 ， 跳 出 循环 ， 结 束 停机 。 

总 之 ， 解 决 一 个 实际 问题 的 方法 是 多 种 多 样 的 。 应 该 选 
择 那些 既 能 节省 机 时 又 能 节省 存 贮 空 间 的 方法 ， 它 需要 人 们 
仔细 研究 、 相 互 借鉴 。 当 两 者 不 能 兼顾 时 ， 根 据 实际 情况 偏 
重 一 方 。 

6. 注 疲 近似 处 理 

运行 结果 正确 并 达到 预期 的 精度 要 求 ， 是 进行 程序 设计 
时 应 该 考虑 的 一 个 标准 ， 但 是 ， 也 有 这 样 的 情况 ， 有 些 计算 
养 不 要 求 很 高 的 精度 ， 已 能 满足 题 意 要 求 ， 这 时 我 们 就 要 考 


患 近 似 处 理 。 
例如 ， 用 下 述 公 式 ， 
和 
| 


来 求 e 赴 时 ， 一 般 N 取 10 ， 已 能 满足 精度 要 求 ， 见 程序 
Neali1， 


40 有 = 有 /II 

SO0 了 =B+ 人 

GD NEXT T 

ZOD 忆 RINT "已 = B 
8BD END 
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下 面 是 几 种 运行 结果 ， 
N=10 时 ， 
N = 100 时 ， 


e=2.7182818 
e=2.71828183 


N=500 时 ，e=2.71828183 
而 一 般 ec=2.71828 已 够 用 了 。 


7. 考虑 通用 合理 


为 保证 程序 的 通用 性 和 逻辑 上 的 合理 性 ， 在 程序 编制 过 
程 中 应 考虑 以 下 几 点 ， 

。 安排 判断 输入 数据 是 否 正确 的 语句 

“。 利用 终 正 标志 来 终止 某 一 过 程 或 停机 

。 对 使 用 某 一 程序 段 来 完成 重复 计算 的 工作 ， 应 注意 正 
确 的 调用 和 返回 

。 对 多 次 重新 运行 的 程序 ， 应 保证 任何 情况 下 都 正确 无 
误 ; 

。 有 时 程序 中 应 考虑 可 能 出 错 的 自动 处 理 。 

例如 ， 求 任意 数 的 阶乘 ， 即 求 N1 

分 析 ， 六 只 能 是 正 整数 〈 包 括 0) 

N 不 能 是 负数 和 小 数 ， 见 程序 Na12 (机 型 PC-1500)， 


SREM NO, 12 
18:CLEAR 
2D:F=l 
3B: INPUT N 
49: IF NBOR N(》 
INT CN7?THEN 9B 
IF N=9993THEN 1 
8B 


d451; 
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5D:FOR JI=1TO N 
和 硬 B;F=F 冰 
IDOINEXT 了] 
8B8:LPRINT Ni” 6571 
F':GOTO 19 
998:LPRINT "”N=" Ni 
"1IS DTA 上 RRO 
RI2":GOTO 1 
1p8;:END 
说 明 ，40 句 就 是 分 辨 输入 数据 正 误 的 判断 语句 ，90 句 指 
出 输入 数据 错误 并 正确 返回 〈 这 里 必须 返回 到 10 句 ， 而 不 
应 是 30 名 ) ，45 句 是 安排 的 终止 语句 (CN = 999 是 任 取 的 ， 
它 应 志 离 要 计算 的 数 ) 。 
下 面 是 程序 运行 的 部 份 实例 ， 
81!= 4D32B 
N=-1! IS DO9TA ERRO 
R 
日 != 工 
N= 1.32 TIS _ DAT ER 
ROR 


3,， 人 防止 程序 出 错 


程序 出 错时 ， 计 算 机 能 够 显示 错误 的 性 质 ， 指 出 错误 的 
行 号 ， 并 自动 停机 等 待 操作 者 处 理 。 这 不 仅 反映 了 计算 机 作 
为 “电脑 ”的 本 领 ， 而 且 也 体现 了 BASIC 语言 能 够 实现 “人 
机 对 话 ” 的 特点 。 

如 果 我 们 事先 预料 到 程序 可 能 出 错 ， 且 这 种 错误 并 不 影 
响 下 面 程序 的 计算 ， 而 我 们 又 希望 程序 能 继续 运行 ， 不 要 停 
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机 待命 ,由 机 器 自动 处 理 这 种 错误 并 继续 工作 , 这 时 我 们 可 惧 
使 用 出 错 转移 语句 ，ON ERROR GOTO 〈 表 达 式 或 行 号 。 
它 的 功能 是 ， 一 且 程 序 出 错 ， 计 算 机 自动 转 到 GOTO 后 面 所 
指向 的 标号 上 去 。 下 面 是 PC-1500 机 应 用 的 一 个 实例 。 
如 求 : 了 = /GT- 20)/GT- 40)XGT- 60) 
T=1,， 2，3,……，79,，80 
见 程序 No13， 


52:REM NB.13 

1B:ON ERROR GO0TO 
279 

29:FOR I=1T0 8B 

38:Y=1- (CI-29)“(1 
48)“(I-69) 

4B;:PAUSE 工 ;” 炎 玉 炒 "” 
Y 


DB:NEXT I 
DB8;:FEND 
29:BEEP 3:60TO 59 


本 题 中 ， 当 T= 20，40，60 时 ，Y-~co ， 计 算 机 会 发 生 


混 出 而 出 错 。 作 如 上 处 理 后 ， 机 器 发 出 信号 鸣 笛 三 声 ， 然 后 
转 50 句 ， 继 续 执行 程序 ， 不 断 给 出 结果 而 不 会 停机 待命 。 

93。 划分 功能 模块 

根据 总 体 需 要 和 系统 配置 的 可 能 ， 将 程序 按 功能 划分 成 
几 个 功能 模块 ， 这 样 做 好 处 很 多 ， 一 是 结构 清 厅 ， 层 次 分 
明 ， 二 是 功能 明确 ， 便 于 移植 ， 三 是 分 头 编写 ， 缩 得 周期 。 
这 是 在 大 型 程序 设计 中 经 常 使 用 的 方法 。 
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为 便于 理解 ， 下 面 仅 通过 一 个 简单 例子 来 说 明 模 块 化 结 
构 的 应 用 。 

例如 ,有 一 批 学 生 参 加 计算 机 培训 , 现 假定 由 计算 机 自动 
出 题 并 评分 ,对 于 经 考试 成 绩 及 格 的 , 发 给 结业 证 书 ， 不 及 格 
者 给 予 一 次 补考 机 会 ， 若 补考 仍 不 及 格 继续 参加 下 期 培训 。 

我 们 可 以 事先 编 好 考试 模块 ， 补 考 模块 、 发 证 书 模 块 
等 ， 然 后 按 下 述 框图 连接 ， 这 样 ， 检 查 成 绩 的 程序 一 目 了 
然 。 这 样 做 ， 使 得 整个 程序 阅读 、 理 解 和 调试 极其 方便 ， 而 
上 且 可 以 随意 修改 ， 如 图 2 所 示 。 


不 及 格 一 


| 


夸 参 加 培训 | 交 业 让 
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对 初学 编程 的 人 来 讲 ， 程 序 设 计 人 入 门 并 不 难 ， 但 是 要 编 
制 一 个 质量 较 高 的 程序 ， 并 非 是 一 件 轻而易举 的 事 。 因 为 要 
想 编 好 一 个 程序 ， 仅 仅 靠 了 解 计 算 机 语言 的 基本 语句 是 很 不 
够 的 ， 同 时 ， 初 编程 的 人 掌握 现成 的 方法 太 少 ， 技 巧 不 多 ， 
再 加 上 不 很 熟悉 规则 ， 往 往 出 错 。 

程序 设计 是 一 项 技术 性 很 强 的 工作 ， 是 模仿 性 和 创造 性 
揭 统 一 。 程 序 设 计 又 是 一 项 极其 复杂 而 又 十 分 灵活 的 工作 ， 
它 需 要 人 们 不 断 探 索 ， 不 断 创造 。 

这 里 作为 全 书 的 引导 ， 首 先 向 读者 介绍 程序 设计 的 简单 
技巧 ， 本 书 中 将 有 相当 大 的 篇 幅 详细 阐述 程序 设计 技巧 的 各 
个 方面 。 

例如 ， 求 10，20，30，40，50 的 平均 值 。 

这 是 一 个 非常 简单 的 数值 计算 问题 ， 编 制 方法 可 以 有 10 
多 种 ， 初 学 者 常常 用 赋值 语句 ， 键 盘 输 入 语句 ， 读 数 语句 求 : 
编 ， 例 如 ， 


加 


1G LET 人 = 4140 

20 LET B = 20 

30 LET C = xs0 

40 LET D = 40 

5G LET E = 50 

ao LETM= (RAR+BRB+C+D+E) /到 
70 ”PRINT M 

8 END 
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1D0 INFUT A,B.C,D,E 
20M= (+B+C+ 
30 PRINT M 

40 END 


D +E) /SS 


加 10 READ A,B,C,D,E 
20M= (+B+C+D+E) /5 
30 PRINT M 
40 DATA 10,20,30,40,50 


s50 END 
当然 更 多 的 人 用 循环 语句 来 编 ， 例 如 ， 
由 
10 FOR TI= 1 Tao 5 
20 READ X 
089S=S+X 
409 NEXT I 


5C4 _ PRINT S / 5 
e0 DATA 10,20,30,40.50 
7O END 


以 上 程序 的 正确 性 是 不 用 怀疑 的 。 但 是 仔细 推 攻 一 下 ， 
还 有 更 好 的 编制 方法 ， 今 略 举 一 、 二 ， 读 者 可 以 自行 鉴别 其 
优 消 。 
@ 
10 FOR I=17TQ5 
20S=S+1l0X< 工 


3DO NEXT I 
40 FRINT S 7/ 5 
S9 END 
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3 NEXT 1I 
4D PRINT S / 
SO END 


说 明 ， 若 用 PC-1500 机 编制 上 述 循 环 程序 ， 在 循环 前 
要 加 9=0 或 CLEAR 语句 ， 而 用 APPLE-I 机 可 以 省 略 。 
同时 END 语句 可 以 不 要 ， 因 为 机 器 按 行 号 顺序 执行 ， 没 有 
行 号 及 语句 ， 机 器 会 自动 结束 。 此 外 ，NEXT 后 面 的 变 量 工 
可 以 省 去 ， 运 行 速度 也 加 快 了 ， 这 样 ， 下 面 的 一 行程 序 ， 就 
是 一 个 优化 程序 ， 


1 FOR IT = l0DTO 50 5STEP 10:5S = 
SG+I: NEXT : PRINT S /5 


综 上 所 述 ， 我 们 从 十 个 方面 介绍 了 编程 的 一 般 步 最 和 方 
法 ， 实 际 上 也 并 不 一 定 按 上 述 模式 进行 ， 如 题目 开始 就 给 出 
一 个 计算 公式 ， 则 建立 数学 模型 一 步 可 省 去 ， 若 问题 比较 简 
单 ， 绘 制 框图 的 工作 也 可 以 不 做 。 
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三 、 程 序 连接 的 方法 


一 个 程序 中 各 语句 如 何 连接 ， 两 个 不 同 的 程序 如 何 合 
并 ， 主 程序 和 子 程序 如 何 搭配 ， 以 及 几 个 文件 如 何 联 用 等 
等 ， 都 属于 程序 或 文件 的 连接 问题 。 其 连接 方法 也 是 多 种 多 
样 的 。 


1. 如 何 安排 总 控 


一 个 程序 中 ， 如 果 在 程序 的 开头 安排 了 总 控 ， 那 么 ， 人 
们 在 操纵 机 器 、 支 配 程序 、 选 择 功 能 方面 ， 就 有 了 更 多 的 灵 
活 与 方便 。 安 排 总 控 的 方法 有 以 下 几 种 ， 

(1) 用 选择 转向 语句 ONV/GOTO ”例如 ， 


t1Q _ INPUT X 

20 ON X 60T0O 50，604:935 
SO G0TO 10 

50 GD05SUB 1l00:60TO 10 
60 6G0SUB 2003:60TQ 10 
35 END 

100 REM SUBR-~ (1) 

8 2 

189 RETURN 

20Q REM SUB~ 人) 


8 上 
250 RETURN 

上 上 述 程序 执行 过 程 如 下 ; 

和 = 1，20 一 > 50 一 >100 一 > … 一 >180 一 >10 

X = 2，20 一 >60 一 >200 一 >… 一 ->290 一 ->10 

X = 3，20 一 >05 一 一 >END 

说 明 ，ONVGOTO 是 一 种 控制 转向 语句 ， 通常 也 称 开 基 : 
语句 ， 事 实 上 它 的 功能 就 像 一 个 多 路 开关 ， 在 程序 中 用 来 实 - 
现 总 控 。 和 X = 时， 转向 第 ; 个 语句 标号 ， 本题?=1， 2， 
3。 当 X< 0 或 者 X>N (本 题 N=3) 时 ， 相 当 于 控制 
转向 语句 不 存在 ， 而 执行 下 一 语句 ， 即 30 句 ， 又 返回 总 
控 。 

与 可 以 是 常数 ， 也 可 以 是 表达 式 ， 如 输入 一 实数 〈( 开 一 
-1 0，1) 并 求 了 ( 开 ) 之 值 ，F(K) 定义 如 下 式 所 示 ， 


2 玉 +3 五 = 一 1 
王 ()= 10 玉 =0 
2 玉 一 5 到 =] 


程序 ; 


10 INPUT 上 
20 ONK+2 6G0TO 30,40 503 END 


30OF=22# 上 KK+ SI GDTO 6O 
40F = D: G0TO 60 
5OF=2H#K 一 与 


60 PRINT "F="5F 
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《2 ) 用 选择 转子 程序 语句 ONVXGOSUB 例如 ， 


10 INPUT X 

15 IFX<=O THEN END 

20 ON Xx GO0SUB 100,200,3500:500 
30 GO0TO 10 

100 REM SUB- (1) 


Am 和 人 省 南 。 关 儿 


930 RETURN 


9 3 00 pe 并 ae ne 9 3 


00 REM SUB- (4) 


DOD se ws ee se [sw 委 有 亲信。 生 攻 


OC _ RETURN 


说 明 ， ONVGOSUB 也 是 开关 语句 ， 它 比 ONVGOTO 语 
铝 更 简捷 ， 也 常用 在 程序 的 连接 和 控制 上 ， 并 可 省 去 不 少 
GOSUB 〈 标 号 ) ，GOTO( 标 号 ) 的 语句 。ONVGOTO 语句 ， 
不 具备 ONMGOSUB 语句 所 具有 的 记 住 返回 位 置 的 功能 。 

2. 单一 程序 的 连接 方法 

(1) 用 INKEY， 例如 ， 
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1D;A$=TINKEY 机 
29: IF 6$="A"THEN 


个 呈 

3238: IF A$="B2"THEN 
2 

409: IF 8$="C2THEN 
8D 

59:C0TO 19 

68: "9" :FOR 1=1T0 
DLPRINT IT; : 
NExT TI:LPRINT 
:COTO 19 


7B8:”"B”":LPRINT "MY 

NAME ITIS JOHN 

SMITH":COTO 19 
89:FND 


上 人 5 
MY NAME IS JOHN SM 
ITH 
说 明 ， 以 上 程序 适用 于 PC-1500，APPLE- 工 没有 
INKEY$ 键 ， 但 可 以 用 GET As 代 赫 。 
(2 ) 开关 语句 放 在 循环 中 “例如 ， 


10 FOR TI= 1 TO 10 
2a0 ON TI GOSUB 100,150:...- 865 
30 60TO 950 

1o00 REM SUB-GNE 


本 和 。 习 各 


已 
已 
也 
mm 
地 
as 
了 
乙 


本 二 


800 REM SUB-TEN 


39300 RETURN 
959 NEXT II 
23930 END 


说 明 : 本 程序 的 连接 方法 , 不 用 键盘 输入 语句 INPUT， 
而 是 将 开关 控制 语句 放 在 循环 程序 中 ， 由 机 器 自动 完成 。 

(3 ) 巧 用 逻辑 相关 表达 式 罗 辑 相关 符号 (如 所 ， 
之 =，…, 等 等 ) 是 表示 两 个 或 更 多 个 常量 、 变 量 、 表 达 式 的 
大 小 关系 的 ， 而 在 判断 语句 中 ， 这 样 的 关系 式 则 表示 满足 条 
件 是 4《12 本 反之 是 4 102 则 

下 面 是 一 个 成 绩 分 档 的 例子 。 

60 分 以 下 ， 等 。 

60 一 76 分 ，C 等 。 

77 一 89 分 ， 了 等 。 

90 分 以 上 ，4 等 。 
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ULIST 


10 INFUT "SCORE:" 
20X=1+(N>》 =6oo) +(N> = 
77) + (N > = 90) 

30 ON Xx 60TO0 40,50,60,70 

40 “PRINT "D"。 END 

50 FRINT "Cs END 

a0 PRINT "B"5: END 

70 “FRINT "A": END 


说 明 ， 程 序 中 的 20 句 是 个 逻辑 关系 表达 式 ， 使 用 该 名 
后 ， 程 序 比 较 简 洁 。 否 则 不 用 20 句 则 要 加 ， 


15 IFN《 6O THEN LET X aa 了 

20 IFN《 = 76 THEN LET X = 工 

25 IFN< = 89 THEN LET X = 号 

28 IFN = 100 THEN LET X= 4 


故 程序 显得 比较 兄长 ， 占 用 内 存 也 多 。 
(4) 用 逻辑 运算 符号 ”这 里 逻辑 运算 符号 主要 指 
AND 、OR 、NOT。 例 如 :， 计算 如 下 图 数 值 


1 1 -<x<0 
区 0 坟 xY<1 

基站 谍 ， 
] 22 1<x<2 
3x3 2<x<3 


程序 : 
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DLIST 


10 INPUT X 

z0 IFXx< -1o0RX > = THEN 
PRINT "WU ZHI":。 END 

xso ON x + 2 60T9 50,60,70,80 

s50 PRINT !1。，G0TO 10 

40 PRINT Xx: GOTO 10 

70 PRINT 2 #+ X ^ 2: 60TO 10 

80 PRINT 5 xx X ^ 3 6G0TO 10 


说 明 ， 程序 中 的 20 句 ， 就 起 着 承前启后 的 作用 ，X 值 
在 函数 的 定义 域内 ， 转 向 30 名 控制 语句 及 相应 的 结果 ， 而 
X 值 不 在 定义 域内 则 无 解 并 结束 。 


5. 两 个 不 同 程序 的 连接 方法 

(1) 用 EXEC 命令 

在 使 用 微机 和 调试 程序 的 过 程 中 ， 党 发生 两 个 不 同 
BASIC 程序 相互 连接 的 问题 ， 巧 用 EXEC 命令 ， 可 以 方便 
地 得 到 解决 。 

设 内 存 中 已 有 一 个 BASIC 程序 ， 为 简单 计 ， 仅 有 二 
行 ， 

20 PRINT “BBBB2 

30 PRINT “CCCC2 

实际 上 ， 它 可 以 是 一 个 我 们 感 兴趣 的 实用 程序 ， 或 者 是 
一 个 通用 的 子 程序 段 。 

为 了 使 上 述 有 用 程序 ， 随 时 和 经 常 调用 ， 以 文本 文件 形 
: 式 贮存 在 磁盘 上 ， 文 件 名 叫 LISTING 。 
40 


方法 是 ， 键 入 下 述 辅助 程序 ， 取 名 为 CAPTURE . 


DLIST 

1 REM CAPTURE 

2 D 韦 = CHR 韦 (4) 

PRINT D 币 ; "OPEN LISTING" 
4 PRINT D 汕 ; "WRITE LISTING" 
5 POKE SS,3O 

6 _ LIST 20,30 

7 PRINT D 蔬 ; "CLOSE LISTING" 
B TEXT :END 


20 PRINT ”"BBBB" 
3D0 FRINT "CCCC" 


然后 将 内 存 中 已 有 的 程序 〈 本 例 是 20 ，30 行 ) 和 刚 键 
入 的 文件 (CAPTURE) ， 一 起 存 和 磁盘， 即 SAVE CAP- 
TURE 

这 样 ， 我 们 在 内 在 中 建立 了 CAPTURE 程序 、RUN 
CAPTURE./ 后 ， 用 CATALOG (或 CTRL-4) 命令 检查 磁 
盘 目录 ， 立 即 可 以 发 现 增加 了 一 个 LISTING 的 文件 ， 甚 文 
件 类 别 标志 是 T， 表 示 LISTING 文件 内 容 是 文字 资料 。 

注意 ;一定 要 将 文件 名 为 CAPTURE 的 程序 在 入 磁 盐 ， 
否则 RUN CAPTURE 后 不 会 建立 LISTING 的 工 文件 ; 同 
了 时， 存盘 后 一 定 要 运行 ， 否 则 磁盘 中 只 有 CAPTURE 的 人 A 
文件 ， 而 没有 LISTING 的 工 文 件 。 

为 了 实现 与 另 一 BASIC 程序 连接 ， 可 以 先 清 内 存 

CNEW./) ， 然 后 装 入 被 连接 的 程序 ， 为 简单 计 ， 设 有 程 

序 ， 
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10 PRINT 
40 PRINT 
3S0 PRINT 
60O PRINT 


有 从 全 失 全 4 
"DDDD" 
8 蕊 E 芭 育 4 
"END" :。 END 


以 上 程序 可 以 是 当前 从 键盘 输入 ;也 可 以 是 原来 存在 磁 


最 后 ， 只 要 执行 EXEC LISTING 命令 ， 即 可 完成 两 个 


"AAA" 
"BBBB" 
WCGEGn 
"DDDD" 
"EEEE" 


盘 中 的 程序 。 
DUEXEC LISTING 
日 
D 
ULIST 
40 PRINT 
2 “PRINT 
SO PRINT 
40 PRINT 
5  P 户 RINT 
60 PRINT 


“ENDw 4 END 


U (此 时 APPLE- I 的 控制 权 又 返回 到 键盘 ) 。 

通过 上 述 实 例 ， 可 以 看 出 EXEC 命令 执行 时 ， 掀 人 对 
APPLE- 工 的 控制 权 转移 到 一 个 文字 资料 文件 内 ， 而 在 此 文 
件 被 执行 后 ; 对 APPLE- 上 的 控 钢 权 又 返回 到 控 佑 台 ( 键 
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盘 ) 。 

综 上 所 述 ， 实 现 两 个 BASIC 程序 连接 的 步骤 如 下 : 

“ 先 装 和 要 连接 的 程序 〈20 一 30 行 ) 

。 键 入 辅助 程序 〈1 一 8 行 ) 

“将 〈20 一 30 行 ) 和 “1 一 8 行 ) 中 的 程序 在 人 磁 禾 〈 取 
文件 名 为 CAPTURE) ; 

。 运行 上 述 程序 ， 即 生成 LISTING 文本 文件 〈 即 要 连 : 
接 的 程序 20 ，30 行 以 了 文件 形式 在 和 磁盘) ; 

“ 若 和 其 它 程 序 连 接 ， 先 清 内 存 ， 再 键入 其 它 程 序 〈 如 
10，40，50，60 行 ) ， 或 调 入 已 存在 磁盘 中 的 程序 

。 执行 EXEC LISTING 命令 ， 即 完成 两 个 BASIC 程 
序 的 连接 (20，30， 和 10 ，40 ，50，60 行 ) 。 

最 后 再 说 明 两 点 : 

全 ”辅助 程序 中 第 6 行 LIST 后 面 的 行 号 ， 应 为 要 连接 : 
的 第 一 个 BASIC 程序 的 起 始 行 号 和 最 后 行 号 。 

@ 被 连接 的 两 个 BASIC 程序 ， 各 自行 号 不 应 重复 。 

(2) 用 RENUMBER 程序 用 户 在 编制 一 个 较 大 的 
系统 软件 时 ， 可 以 有 几 个 人 分 别 编写 ， 然 后 再 连接 成 一 个 完 
整 的 程序 。 不 难 想象 ， 用 人 工 合并 程序 的 工作 量 是 很 大 的 ， 
利用 DOS 3.3 操作 系统 中 的 RENUMBER 公用 程序 ， 将 会 
给 程序 的 合并 带 来 很 大 方便 。 

为 方便 计 ， 设 有 两 个 BASIC 程序 ， 它 们 分 别 是 Ne14 和 
Nm15 ， 且 两 个 程序 行 号 不 重合 。 即 程序 沁 14 ， 
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DOLIST 


1Q0 REM NOD.14 
20 忆 RI NT ABCD，" 
SO PRINT "12X4" 


程序 Na15， 


DLIST 


80 REM NO0.15 
90 ”PRINT "BASIC" 
95 PRINT "4S21" 
599 “END 


现在 要 将 上 述 两 个 程序 合并 ， 具 体操 作 如 下 : 

.引导 DOS 3.3 

。RUN RENUMBER.。/ 

。 取出 DOS 3.3 ， 放 入 要 合并 的 两 个 程序 《Na14 和 
Na15) 的 磁盘 

。 键入 LOAD Na14./ 

“键入 文 H。 

。 键 入 LOAD Na15./ 

“。 键入 文 M./ 〈 此 时 即 已 实现 了 两 个 程序 的 合并 ， 它 们 
仍 在 内 存 中 ， 给 它们 取 一 个 文件 名 ,如 Ne16， 存 人 磁盘 ) 8 

。 清 内 存 (NEW。/) 

。LOAD Na16./ 
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。LIST./ 


ULIST 

1 REM NO.14 
20 PRINT "ABCD” 
了 PRRINT “ 芋 忆 了 4 
SBSQ REM NO.15 

30 PRINT ”BASIC 
35 PRINT “435219 
99 “ENDP 


注意 ， 两 个 被 合并 的 程序 ， 行 号 不 应 重 登 ， 否 则 按 重 订 


行 号 的 方法 处 理 。 


4.， 重 订 行 号 的 方法 
由 于 工作 上 的 需要 或 当 程 序 较 长 时 ， 可 以 由 几 个 人 分 别 

编制 各 程序 段 ， 然 后 再 将 大 家 的 工作 合并 成 一 个 完整 的 程 
痒 。 把 多 人 分 头 编制 的 程序 合并 成 一 个 程序 时 ， 应 该 坚决 防 
止 行 号 重 倒 的 现象 ， 否 则 就 会 出 现 意 想 不 到 的 后 果 ， 使 程序 
无 法 执行 。 因 此 ， 需 要 对 各 人 编写 的 程序 各 语句 的 行 号 重新 
订正 ， 这 是 一 个 很 费时 的 工作 。 而 利用 APPLE- 工 微机 主 左 
盘 中 的 RENUMBER 程序 ， 可 以 方便 地 完成 重 订 程序 中 各 
语句 行 号 的 工作 ， 其 操作 要 领 及 实例 如 下 ， 

。 引号 DOS 3.3 主 磁盘 

.RUN RENUMBER 程序 

。 把 需要 重 订 行 号 的 程序 调 入 内存 

。 打 入 &EFE (xxXxx>，IXxxXx>/ 
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即 可 完成 行 号 的 重 订 工 作 。 
例如 ， 有 一 个 文件 名 为 17 的 程序 


ULIST 


REM NO.17 

D 贞 = CHR 囊 〈4) 

FRINT D 种 ; "OPEN LISTING， 
PRINT D 和 5 "WRITE LISTINGy" 
PDKE 33S,， 3O 

LIST 20，30 

PRINT D 委 3 "CLOSE LISTING， 
TEXT : END 

20 FRINT "BBBBn 

30 PRINT ”CCCC， 


回放 灾 喇 上 旭 N 


现在 需要 重 订 行 号 ， 从 100 号 开始 ， 相 邻 语 句 的 行 号 笈 
鲁 为 50， 步 又 如 下 ， 

。SAVE Na17./ 

。 引 导 DOS 3.3 

< RUN RENUMBER 

。LOAD No17./ 

。 键 入 & F100，150./ 

。LIST。/ 

从 屏幕 上 可 以 看 到 以 下 结 
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ULIST 


100 REM NO.1T7 

1 56 了 D 囊 一 CHR 贡 (4)》 

40OO PRINT 了 D 革 5“ OPEN LISTING"” 
250 FRRINT D 贡 8 NRITE LISTING” 
攻 扣 和 名 KE 本 训 包 

350 LIST 204 30 

400 “PRINT 了 D 贡 "CLOSE LISTING" 
45S0G TEXT :。 END 

SQC ， 户 RINT “BRBBR 

与 0 PRINT “CECCC 
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四 、 节 和 省 内 存 和 提高 速度 的 方法 


我 们 曾经 指出 ， 一 个 好 的 程序 除了 要 求 结果 正确 ， 还 希 - 
望 占用 内 存 少 和 运行 速度 快 。 在 选择 各 种 各 样 解 题 方法 时 ， 
应 该 选择 那些 既 能 节省 机 时 又 能 节省 存 贮 空 间 的 办 法 ， 因 为 : 
它们 是 进行 高 质量 程序 设计 的 重要 指标 。 

1. 程序 存 邮 的 基本 知识 

在 具体 讨论 节约 内 在 的 措施 前 ， 必 须 了 解 一 下 语句 和 程 : 
序 的 存 贮 情况 。 

程序 是 由 程序 行 组 成 的 ， 每 一 行 语 句 存 贮 情况 如 下 ;1 
个 语句 的 行 号 占用 2 个 字 节 ， 语 名 长度 占 用 2 个 字 节 ， 回 车 . 
占用 工 个 字 节 。 每 一 名 行 号 和 回 车 之 间 称 之 为 文本 ， 文 本 中 
每 个 字符 占用 1 个 字 节 ， 每 个 命令 也 占用 工 个 字 节 。 注 意 这 . 
里 仅 指 语句 中 各 字符 的 代码 所 占用 的 字 节 数 ， 并 不 包括 变量 


所 占 的 字 节 数 。 
按照 上 述 存 贮 分 配 ， 用 几 种 方法 来 检查 语句 或 程序 的 存 - 
贮 情 况 。 


例如 ， 两 个 简单 的 赋值 语句 : 


10 LET 有 一 也 2 
< LETD= PEEK (105) + 250 为 PEEK- 
(1O6) 
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试 检查 一 下 它们 占用 的 字 节 数 。 

(1) 根据 1 个 行 号 占用 2 个 字 节 ”语句 长 度 占用 2 个 字 
节 ， 工 个 回 车 占用 工 个 字 节 ， 因 此 上 述 两 行 不 包括 从 命令 开 
驹 的 文本 部 份 ， 每 行 各 占 5 个 字 节 ,另外 工 个 指令 (如 LET， 
PEEK) 占 工 个 字 节 ， 工 个 字符 (如 A，=，3 ，2，,* 等 ) 
牛 工 个 字 节 ， 所 以 10 名 的 文本 部 份 占 5 个 字 节 ，20 名 的 文 
本 部 份 占 20 个 字 节 ， 这 样 ， 两 个 赋值 语 名 共 占 35 个 字 节 。 

(2) 用 EFRE 语句 检查 方法 如 下 : 


DFRINT FRE《1) 
一 全 吕 呈 


ULCO LET 各 王 全 
1U20 LET D=PEEK(105)+2564#PEEK (LOG6)》 


DPRINT FRE《L》 
= 29225 


可 以 看 出 ， 在 没有 键入 两 个 赋值 语句 前 ， 用 户 的 可 用 字 
- 节 数 为 65536 一 29188 = 36348 。 
在 键入 两 个 赋值 语句 后 ， 用 户 的 可 用 字 节 数 就 减少 虱 
65536 一 29223 = 36313 
利用 这 一 检查 ， 就 可 以 了 解 到 两 条 赋值 语句 所 占用 的 字 
: 萄 数 为 
36348 一 36313 = 35 
这 个 结果 和 方法 (1) 一 致 。 
注意 ， 话 句 FRE 后 面 括号 中 的 数字 是 无 关 紧 要 的 。 
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当然 ， 也 不 一 定 要 用 65536 处 理 ， 可 用 

1- 292231- 1- 29188| = 35 
(3 ) 用 一 个 程序 来 检查 ”由 于 APPLE- 工 机 的 程序 存 
赚 : 区 是 从 $0800 地 址 开始 的 〈 即 10 进 制 的 2048 ) ， 所 以 下 
面 揭 程序 可 以 用 来 检查 10 句 和 20 名 在 存 贮 区 中 语句 的 存 


贮 方式 ， 并 可 了 解 它们 占用 内 存 的 字 节 数 。 
DLLIST 


1 LET 人 二 号 2 

2O0 ETD= PEEK 《htOS) 中 25 迪 PEEF 
人 

3 REM STATEMENT STORAGE 

40O FOR 人 = 204B TD 2085 

5D LET X 一 PEEK 《KK) 

6O PRINT XS “3 

79 NEXT 六 

BC END 


运行 上 述 程 序 ， 得 到 如 下 结果 : 
DRUN 
站 BitDDl7065 208 51 500 36 日 20 1 


17 由 日 2 有 22 加 4 间 吕 4 日 第 了 41 200 对 C 区 三 
5S4 202 2206 30 49 48 55 41 D 


这 一 连 串 的 数字 都 是 10 进 制 数 ， 一 下 不 容易 看 清 它 们 
的 含义 ， 实 际 上 包括 5 个 方面 的 内 容 。 

*“ 浮 点 BASIC 保留 字 的 内 部 代码 ， 如 170 就 是 16 进 
制 AA ， 它 是 LET 的 编码 。 又 如 226 就 是 16 进 制 E2 ， 它 
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是 PEEK 的 编码 。 而 202 对 应 $CA ， 是 保留 字 * 的 代码 。 

。 机 内 ASCII 码 ， 如 65 〈10 进 制 的 ASCI 码 ) ， 对 
应 的 ASCII 字符 是 A 。 而 41 对 应 的 ASCII 字符 是 ) 等 等 。 

。 行 号 ， 如 10 就 是 行 号 10 ，20 就 是 行 号 20 等 。 

。 行 号 前 的 两 个 单元 存 贮 着 下 名 地址 ， 地 址 的 低位 在 
前 ， 地 址 的 高 位 在 后 。 如 上 述 结果 中 10 前 面 的 二 组 数字 持 
和 8 ， 是 地 址 。 如 语 名 10 的 下 句 地址 为 : 

256*8+11= 2059 

即 下 一 语句 20 从 2059 开始 。 

同 理 ， 地 址 2059 和 2060 就 是 语句 20 名 的 下 名 地 址 ， 
利 

256*8+36=2084 

换 名 话说， 语句 10 和 20 占用 了 从 地 址 2048 “〈 实 际 上 
是 2049) 到 2083 这 个 存 贮 区 共 36 个 字 节 〈 实 际 上 是 35 个 
人 字 节 ) 。 

这 个 结果 和 上 面 分 析 的 一 致 。 

。 语句 结尾 ， 每 个 语句 以 全 0 字 节 结尾 。 

顺便 说 明 的 是 ， 上 述 程序 可 以 了 解 程序 或 语句 的 存 贮 方 
式 及 语 名 长度， 同时 ， 也 可 用 该 程序 了 解 机 器 所 用 的 关键 字 
代码 。 方 法 是 将 行 号 10 和 20 改 成 其 它 语 句 。 

对 照 上 述 程序 运行 结果 ， 以 及 浮 点 BASIC 保留 字 代 码 
和 机 内 ASCII 码 ， 不 难 将 上 述 结果 按 在 贮 地 址 排列 起 来 ， 
今 给 出 部 份 结果 ， 其 余部 份 请 有 兴趣 的 读者 自行 完成 ， 见 玫 
改 .1。 
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下 句 地 址 为 
2050 2059 

行 号 10 
2052 

LET 
2054 A 
2056 3 
作 

2058 

下 名 地 址 为 
2060 8 2084 


20 行 号 20 


2. 节省 内 存 的 措施 


了 解 上 述 存 贮 概念 后 ， 就 很 容易 找到 节省 内 存 的 方法 ， 
具体 措施 有 : 

(1) 采用 组 合 语句 前 面 已 经 指出 , 每 个 语句 行 必需 有 - 
5 个 字 节 的 说 明 性 存 贮 。 它 们 是 2 个 字 节 的 行 号 、2 个 字 节 
指 下 名 地址 和 1 个 字 节 的 结束 符 。 因 此 ， 很 容易 想到 在 工 个 
行 号 下 安排 多 个 语句 。 行 号 少 了 ， 省 出 了 占用 的 字 节 ， 也 省 : 
出 了 处 理 行 号 的 时 间 ， 从 而 节省 了 内 存 。 

例如 ， 有 一 段 程序 如 下 

10 LET A=7 

20 LET B=5 

30 LET C=3 
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该 程序 共 三 行 ， 占 用 内 存 27 个 字 节 ， 现 在 用 一 条 组 合 
语句 来 代替 。 

10 LET A=7，LET B=5， LET C=3 

这 里 增加 了 2 个 语句 分 隔 符 “: ”， 所 以 比 上 面 三 行程 
序 节 的 8 个 字 节 存 贮 量 。 

按照 扩展 BASIC 规定 ， 还 可 以 这 样 写 , 

10 A=7: B=5: C=3 

这 样 又 省 去 了 3 个 字 节 。 

因此 ， 在 一 个 长 程序 中 ， 使 用 多 语句 行 可 以 节约 不 少 在 
贮 量 。 但 是 ， 应 该 注意 ， 一 个 程序 行 允 许 的 字符 数 是 有 限 
的 ，APPLE- 工 机 最 多 不 超过 239 个 字符 。 这 样 做 的 不 足 之 
处 是 ， 程 序 变 得 不 够 清晰 ， 难 以 阅读 和 理解 ， 还 会 造成 编辑 
和 修改 的 困难 。 

(2) 删 掉 所 有 的 REM 语句 ”注释 语句 REM 往往 包 , 
含 很 多 字符 , 它 常 常 是 告诉 读者 怎样 使 用 程序 ,各 部 份 程序 府 
容 提 示 、 操 作 、 数 据 输入 、 打 印 输出 等 信息 。 有 1 个 字符 就 
要 1 个 字 节 来 存 贮 。 因 此 ， 这 个 语句 是 很 浪费 存 贮 空间 的 。 
REM 是 非 执 行 语句 ， 在 程序 中 不 起 作用 ， 将 它 取消 不 影 中 
程序 功能 ， 但 却 节 约 了 很 多 存 贮 量 。 

例如 ， 删 除 前 


LIST 

10 LET 妆 二 瑟 

CD LET 了 = PEEK 《1 号 》 十 人 2S 白 藉 中 世 E 六 
(oO6) 


30 REM  STANTEMENT STORAGE 
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D2FRE 1) 
一 29247 


取消 后 


ULIST 
要 忆 


ET 会 
2 PEEK (105) + 25 区  PEEK 


20 LET D 
(toO6) 


六 下 


D3FRE (1 ) 
一 2922 

共 节 省 24 个 字 节 的 存 贮 量 (REM 语 句 后 每 一 个 空格 也 
第 用 1 个 字 节 ) 。 

又 如 有 以 下 程序 

10 REM 定义 时 间 抑 阵 

20 DIM T(40，40) 

可 改 为 ， 

10 DIM T(40，40):REM 定义 时 间 和 矩阵 

10 DIM T(40,40) 定义 时 间 和 矩阵 

前 者 适用 APPLE- 工 ， 后 者 适用 IBM PC ， 二 者 都 是 使 
用 简要 的 注释 ， 并 采用 组 合 语句 方式 ， 以 节省 内 存 。 

但 若 改 为 

10 REM 定义 时 间 和 矩阵 :DIM T(40,40) 

则 语法 上 虽 疫 有 错误 ， 但 数组 T 并 没有 开辟 ， 因 为 
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REM 是 非 执行 语句 ， 冒 号 后 面 的 内 容 计 算 机 并 未 访问 。 

同 采 用 组 合 语 名 一样， 取消 REM 语句 ， 使 程序 阅读 、 
使 用 变 得 困难 。 

《3 ) 省 去 程序 最 后 的 END 语 句 这 一 点 也 是 比较 自然 
的 ， 当 END 放 在 程序 结尾 时 ， 有 或 无 均一 样 ， 机 器 扫描 到 
没有 行 号 时 ， 会 自动 结束 。 这 一 点 和 BASIC 规定 中 有 关 
END 的 说 明 不 一 样 ， 但 实际 上 却 是 可 行 的 。 

(4 ) 不 要 随意 扩大 数组 为 了 保证 程序 的 正确 执行 和 
各 种 信息 的 正确 存 贮 ， 有 时 候 需 要 开辟 一 定 的 数组 ， 太 少 了 
不 够 存 贮 ， 机 器 指出 BAD SUBSCRIPT 的 出 错 信息 ， 太 大 
了 浪费 内 存 空 间 。 每 多 用 1 个 数组 元 素 〈 下 标 变量 ) ， 就 多 
用 5 个 字 节 内 存 。 

另外 ， 在 数组 中 ， 尽 可 能 用 整数 代替 实数 ， 前 者 每 个 元 
素 要 用 2 个 字 节 ， 后 者 却 要 用 5 个 字 节 ， 因 此 ， 对 100 个 元 
素 的 数组 ， 用 整数 就 可 以 节约 300 个 字 节 ， 这 是 很 可 观 的 。 

(5) 用 单个 字母 作 变量 名 用 单个 字母 作 变 量 名 ， 和 名 
字 越 握 越 好 ， 易 读 易 改 内 存 少 ， 程 序 运 行 也 快 。 

油 如 ， 

10 NUMBER = | 

玫 为 ， 

1I0 N=1 

则 可 省 用 5 个 字 节 的 存 贮 量 。 

《6 ) 尽量 使 用 变量 代 直 常数 变量 所 占 的 内 存 比 常数 
省 (变量 的 名 字 要 短 )。 因 此 要 尽量 使 用 变量 而 少 用 常数 。 对 
于 多 次 用 到 的 常数 可 以 先 赋值 给 其 一 简单 变量 ， 而 后 再 调 
用 ， 这 样 所 占 内 存 少 。 
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例如 ， 在 程序 中 要 使 用 10 次 3.1415926 这 个 常数 ， 那 
么 ， 可 以 使 用 语句 

10 P=3.1415926 

然后 ， 每 一 次 使 用 该 常数 时 ， 用 P 而 不 用 3.1415926， 
这 样 每 次 就 节省 了 好 几 个 字 节 ， 调 用 10 次 就 节省 了 几 十 个 
字 节 。 

另外 ， 常 用 的 变量 ， 最 好 放 在 程序 的 最 前 面 ， 以 减少 每 
次 搜索 时 间 ， 提 高 运行 速度 。 

(7) 用 ONGOTO 语句 代替 IF/THEN 语句 在 解 
决 比较 复杂 的 问题 时 ， 沼 常 遇 到 多 分 支 的 情况 ， 这 样 需要 多 
砍 使 用 IFMTHEN 语句 ,这 显然 是 繁琐 的 。 而 使 用 ONVGOTO 
语句 ， 可 以 解决 多 个 出 口 ， 既 可 节省 内 存 ， 也 为 用 户 提供 方 
便 。 

例如 ， 


1l0 IF X = 1 THEN 109 
20 IF X=2 THEN 200 
30 IF X = 了 THEN 900 


可 改 为 


10 ON X 6GQ0TO 100,，200 3500 


(8) 用 INPUT 语句 代 灰 DATA 语句 ”在 允许 的 情况 
下 ， 尽 量 用 INPUT 语句 代替 DATA 语句 。 
例如 ， 


S6 


10 FOR I= 1 TO 5S: READ AI): NEXT 
I 


20 DATA 4,35,2,7,1 


可 改 为 ; 


1l10 FOR I= 1 TO 5 INPUT AT): NEXT 


这 一 改动 可 以 减少 不 少 内 存 ， 不 过 由 于 INPUT 是 键盘 
输入 语句 ， 逐 个 送 数 ， 时 间 要 慢 一 点 ， 再 次 运行 本 程序 ， 又 
要 一 个 一 个 送 入 数据 。 

另外 ， 对 于 改动 后 的 语句 ， 还 有 两 点 需要 说 明 ， 其 一 是 
NEXT 后 面 省 去 了 循环 变量 TI， 在 紫金 -IT ，APPLE-I 机 
上 都 是 允许 的 ， 它 可 以 提高 运行 速度 〈 原 因 见 下 面 怎样 提高 
程序 的 运行 速度 ) ， 其 二 是 对 于 下 标 变 量 不 到 10 的 ， 可 以 
不 要 数组 说 明 语 句 DIM ， 这 不 仅 符 合 BASIC 规则 ， 而 且 在 
APPLE- II 等 机 器 上 是 可 执行 的 。 但 在 PC-1500 机 上 就 不 能 
执行 ， 只 要 用 到 下 标 变量 ， 不 任 其 值 大 小 ， 一 定 要 在 程序 的 
前 头 安排 DIM 语句 。 

(9) 不 用 重复 给 变量 初始 化 ”在 用 计数 器 (CN=N+1) 
和 累加 和 (S=S+A) 时 ， 常 常 要 首先 给 变量 赋 以 初 值 0， 
但 对 不 同 的 机 器 ， 处 理 方 法 是 有 区 别 的 。 

例如 ， 对 APPLE- 工 机 

10 X=0: M=0 N=0 

但 这 一 语句 可 以 不 要 ， 实 际 上 在 执行 RUN 命令 前 ， 对 
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未 赋值 的 变量 X，M ，N 均 以 0 处 理 ， 而 在 执行 RUN 命 
令 后 ， 内 存 变量 已 置 空 ， 不 用 再 重 置 ， 多 次 运行 不 会 影响 程 
序 的 正确 性 。 

对 PC-1500 机 ， 上 述 程序 行 则 是 必要 的 。 否 则 ， 重 复 
运行 程序 每 次 结果 都 不 一 样 。 另 外 ， 对 PC-1500 机 来 说 ， 
也 可 以 用 CLEAR 语句 来 代替 给 某 些 变量 (可 以 是 多 个 变 
量 ) 初始 化 ， 用 以 代替 给 变量 一 个 一 个 的 赋 零 值 ， 这 样 处 
理 ， 程 序 更 加 简洁 ， 且 节省 了 内 存 。 

(10) 尽量 采用 子 程序 ”对 执行 同样 操作 和 重复 使 用 的 
程序 段 ， 要 编 成 子 程序 的 形式 ， 以 减少 程序 行 数 ， 达 到 节省 
内 存 的 是 的 。 

(11) 经 常 注 意 使 用 X= FRE(0) 语 名 ”清理 存 贮 空间 ， 
把 可 用 的 存 贮 区 还 给 用 户 。 

〈《12) 不 要 任意 提高 变量 精度 ” 整 型 变量 , 单 精度 变量 、 
双 精 度 变量 占用 的 字 节 数 分别 为 2 、4 、8 。 因 此 ， 不 要 任 
意 提 高 精度 ， 而 应 尽量 采用 整 型 区 量 。 


5.， 提高 速度 的 方法 


一 个 程序 的 优 劣 ， 其 运行 速度 是 个 很 重要 的 指标 ， 下 面 
是 提高 程序 执行 速度 的 几 个 常用 方法 。 

(1) 尽量 少 用 GOTO 语句 如 GOTO 10000 ,机 器 对 
GOTO 以 后 的 标号 ， 是 逐一 搜索 整个 程序 ， 并 从 最 低 行 号 开 
台 ， 一 直到 10000 时 才 执 行 下 续 语 句 ， 并 不 是 “立即 ” 跳 到 
10000 铝 执行， 这 一 点 应 特别 注意 。 

(2) 尽量 使 用 简单 运算 “计算 机 执行 运算 有 所 谓 “ 优 
先 权 ”问题 ,例如 执行 加 法 比 做 乘法 快 ,而 乘法 又 比 除法 和 取 
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苦 引 快 。 央 此 9》 对 以 下 话 名: 


应 改 为 ， 


这 里 有 二 点 要 作 说 明 ， 一 是 经 上 述 改 动 后 ， 内 存 增 加 
了 ， 可 见 在 本 例 中 ， 提 高 了 速度 ， 但 增加 了 内 存 ， 它 们 是 
相 了 矛盾 的 ;二 是 改 乘 方 为 连 乘 运算 ， 不 仅 提高 了 速度 ， 巧 且 
提高 了 精度 ， 因 为 计算 机 做 乘 方 运算 是 通过 对 数 与 指数 运 筑 
来 完成 的 《〈 详 见 后 面 章 节 说 明 ) 。 

(3 ) 避 纪 重复 对 表达 式 求 值 ”对 变量 赋 一 个 常量 ， 要 
拨 变量 赋 另 一 个 变量 要 快 。 


1I10A=SHXC+E 一 Y 
2O B = 了 卫 兴 人 CC 二 巨 十 了 
SOD= (ACT+E) 划 
可 改 为 ， 

1O0X= 配 其 己 二 下 

20 人 = X 一 YY 

SO PB=X 十 Z 

40 了 D=XV7/ NMN 
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错 心 的 读者 一 定 会 发 现 ， 改 动 以 后 的 语句 ， 不 仅 速度 加 
忌 ， 了 而 且 还 节省 了 两 个 字 节 内 存 。 
《4) 采用 扩展 BASIC 写 程 序 “例如 ， 


100 IF X=-1 THEN 150 


1S5C PRINT SS 
160 END 
可 改 为 ， 
io IFX= 一 1 THEN PRINT S: END 


《5 ) 提高 循环 程序 的 执行 速度 ”关于 这 一 点 的 详细 说 
明 ， 我 们 将 在 有 关 章 节 阐 述 ， 这 里 仅 从 原则 上 提出 如 下 措 


*。 减少 循环 终 值 和 初 值 之 差 } 

。 增 大 步 长 减少 循环 次 数 ! 

。 减 少 循环 层 数 ; 

。 把 计算 放 在 循环 体外 执行 ; 

。 减 少 或 蕊 安排 循环 体内 语句 ; 

。 简 化 表达 式 ， 采 用 低级 运算 ; 

。 调 整 循环 体 语 名 次 序 ， 减 少 无 用 循环 
。 巧 用 字符 串 函 数 或 逻辑 运算 符号 。 
(6) 其 它 提高 速度 的 措施 有 : 
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。 尽 量 重复 使 用 同一 个 变量 名 

。 重 复 使 用 的 数据 用 变量 代替 

。 党 用 的 变量 在 程序 中 应 尽早 出 现 

。 尽量 避免 用 乘 方 运算 

。 省 去 NEXT 后 面 的 变量 

说 明 ， 上 面 仅 就 节省 内 存 和 提高 速度 两 个 方面 ， 提 出 了 
一 些 简 单 可 行 的 方法 ， 其 中 还 介绍 了 不 少 使 用 语句 编程 的 技 
巧 ， 但 是 ， 必 须 说 明 ， 上 述 各 种 方法 绝 不 是 最 有 效 和 最 和 炉 本 
的 方法 。 

事实 上 ， 上 述 各 种 方法 ， 没 有 必要 也 不 可 能 同时 采用 和 
兼顾 ,因为 这 些 方法 有 时 是 相互 矛盾 相互 制约 的 。 有 的 提高 了 
速度 ， 却 增加 了 内 存 : 有 的 节省 了 存 贮 空间 ， 但 影响 了 程序 : 
的 清晰 程度 ， 破 坏 了 可 读 性 ， 增 加 了 阅读 和 修改 的 困难 ;有 
的 虽 减 少 了 内 存 ， 但 延长 了 程序 的 执行 时 间 。 所 以 ， 我 们 应 
该 根据 实际 情况 区 别 对 待 。 最 好 选择 那些 既 能 节省 机 时 又 能 
少 用 存 贮 空 间 的 办 法 ， 而 当 两 者 不 能 兼顾 时 ， 应 根据 实际 情 
况 偏 重 一 方 ， 如 经 过 估算 ， 内 存 比较 紧张 ， 那 么 就 多 采用 一 
些 节省 内 存 的 措施 。 如 果 是 速度 太 慢 ， 则 应 从 提高 速度 上 多 . 
下 功夫 。 

最 后 ， 强 调 两 点 ; 

。 最 好 的 程序 设计 ， 取 决 于 最 佳 的 解 题 方法 和 设计 思 

。 解 决 节省 内 存 ， 提 高 速度 的 根本 措施 ， 是 使 用 机 器 语 
言 子 程序 。 事 实 上 ， 不 少 有 用 的 软件 大 都 用 机 器 语言 来 编 
制 。 
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4.。 使 用 机 器 话 诗 子 程序 


(1) 节省 内 存 的 一 个 实例 “前 面谈 到 的 节省 内 存 的 措 
施 ， 实 际 上 都 是 很 有 限 的 ， 要 更 进一步 节省 存 贮 量 ， 最 有 效 
有 的 措施 是 使 用 桃 器 语言 子 程序 。 为 了 说 明 机 器 语言 子 程序 的 
这 一 突出 优点 ， 请 看 一 个 实例 。 

假若 要 求 在 显示 屏 上 打出 26 个 英文 字母 ， 可 采用 下 述 
我 们 比较 熟悉 的 BASIC 语言 编程 方法 。 

见 程序 Ne18: 

s REM NO-18 

1O REM TYPE 26 CHAREACTERS 

15 REM ASCII CODE OF A TIS 65 

20 LET A = 65 

30 FRINT CHR 囊 (A) ; 


40 LETA= 和 + 1 
435 REM END TYPE AT CHAREACTER 2 


(CODE 30) 
50 IF A《 = 90 THEN 60TO xso 
40 END 
D?FRE (1) 
-29347 


这 样 一 个 简单 的 BASIC-. 程 序 ， 很 容易 阅读 。 先 取 4 的 
ASCII 码 65 赋 于 变量 A 然后 打印 出 以 4 值 为 代码 的 字 
符 4，40 句 是 个 计数 器 ， 用 来 控制 循环 ， 以 后 每 次 循环 使 
4 加 1， 并 打印 出 下 一 个 字符 ， 只 要 计数 的 4 值 不 大 于 
90， 一 直 重 复 下 去 ， 最 终 打 印 出 最 后 一 个 字符 Z ( 它 的 
-ASCII 码 值 是 90) 。 
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用 FERE 语句 ， 可 以 检查 出 这 个 简单 的 BASIC 程 序 , 盱 
用 了 157 个 字 节 的 存 贮 量 〈 未 键入 上 述 程序 时 PRINT 
FRRE(1) 为 -29188)。 

如 果 有 删除 所 有 的 REM 语句 ， 那 么 ， 就 可 以 少 用 100 个 
左右 字 池内 存 ， 而 减少 到 53 个 字 节 的 存 贮 量 ， 例 如 ， 


29 LET 从 = 5 

0D PRINT CHR 利 《人 3 

40 LET 放 一 六 十 工 

SO IFAA<、 mn9590 THEN GO0TO 0 
GD END 

DU2FRE 人 1》 

一 29241 


同样 这 个 程序 ， 如 果 用 机 器 代码 来 编 ， 只 要 用 13 个 字 
草 的 存 贮 量 。 存 贮 在 首 地 址 为 300 的 地 址 中 。 


DCALL 一 1 551 


共 3DOO。SOC 


QOSoo- 89 Cl 20 ED FD 18 69 0Olt 
D3098- CC9 DB DO F6 60 


对 应 的 汇编 语言 是 : 
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#SOO。 SOCL 


ODS0O0- A9 C1 1LD 全 林 和 下 二 
D302 一 29 ED FF 六 JSR 嘻 FDED 
DOSOS-~ 2 唱 CLC 

DO306 一 69 总 1 ADC 禁 华 〇 1 
OO8- 一 C3 D8 人 忆 雪 了 日 
O3O0A 一 DO F6 BNE 茹 03S02 
已 SOC~ oo RTS 


如 果 在 BASIC 状态 ， 键 入 CALL 768.J， 立 即 可 以 在 
屏幕 上 看 到 以 下 信息 ， 
UCALL768 
ABCDEEGHIJKLMNOPQRSTUVWXYZ 
这 个 结果 ， 和 上 述 BASIC 程序 运行 的 结果 是 完全 一 臻 
的 。 
CALL 后 面 的 768 是 十 进 制 数 ， 它 等 效 于 十 六 进 制 
300。 
从 这 个 例子 明显 看 到 ， 将 子 程序 编 成 机 器 语言 形式 ， 可 
以 有 效 地 节省 存 贮 空间 。 
《2) 提高 速度 的 一 个 实例 “全 如 ， 两 种 语言 排序 的 比 
较 ， 用 汇编 语言 编制 的 程序 比 用 BASIC 语言 编写 的 程序 ， 
在 执行 速度 上 要 快 的 多 。 
下 面 我 们 通过 枚 举 法 排序 来 说 明 这 个 问题 。 
程序 Na19 是 用 BASIC 语言 写 的 ， 数 组 A(CN) 是 用 来 存 
放 被 排序 后 的 数据 ， 数 据 的 个 数 N 由 键盘 输入 ，50 句 用 来 
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产生 随机 数 并 打印 ，100 名 就 是 大 家 比较 熟悉 的 枚 举 法 排序 。 
它 和 110 句 一 起 构成 排序 并 打印 输出 。 


与 REM NO。.19 

10 INPUT N: DIM AI(N》 

s50 FORI= TaNIACI)= INT ( RND 
(1》 4# t100): PRINT AI)39 
3 NEXT I 

80 PRINT : PRINT 

00 FOR TI = 1 TON 一 13: FOR J = 
TIT+liTON: IF AI > 人 JI THERN 
T=-NtT)sAhtI) 二 失 (J)3A《J) 
本 

iD NEXT : NEXT : .PRINT :。 FOR I = 
1 TO NI PRINT AI) 2 NEXT 


以 上 程序 运行 后 ， 如 果 六 取 100 ， 则 在 屏幕 上 将 要 运行 
1 工分 钟 左右 。 

如 有 果 用 汇编 语言 来 编制 妆 举 法 排序 程序 ， 将 发 现 其 运行 
速度 是 很 快 的 ， 同 样 100 个 数 从 产生 到 排序 完毕 仅 几 秒 钟 。 

机 器 语言 的 子 程序 为 : 


革 站 0。D3S2D 


OoOo0 Ah 00 85 07 CC 07 82 00 
OO E8 3 AN CCB BD 00 60 D9 
Oo DO0 6D BO 0OB 38 C5 06 DO 
中 1 人 ~ F2 BA CS DO7 DO ERA 60 48B 
US2O- B9 0 60 9D 00 ao 69 393 
3233~ Do on 4C 14 903 00 
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以 上 程序 取 名 Jm20 ， 把 它 在 人 磁盘 备用 。 
此 外 ， 我 们 再 编写 一 个 BASIC 程序 ， 用 来 调用 机 器 语 
言 排序 的 子 程序 ， 取 名 为 Nm21 : 


ULIST 


五 REM NO.21 

4140  POKE 6v100: FOR TI = 1 TO 100: 
A= INT (RND (1) x+ 255)s PRINT 
骆 5 033 POKE 245764 + TANEXT 
《3 PRINT 

40 PRINT : PRINT 8 PRINT 

SO CALL 768 

8B0 FOR IT = 一 1 TO 100: PRINT PEEK 
(24576 + TI)5" "3 NEXT I 


现在 可 以 在 屏幕 上 比较 两 种 语言 编制 的 排序 程序 ， 在 速 
疫 上 究竟 有 多 大 差别 ， 操 作 如 下 ; 

。 装 入 机 器 语言 的 排序 程序 ，BLOAD Nm20 ./ 

。RUN Nao19./) 

出 现 ? 后 ， 键 入 100 -7/ 

观察 排序 的 执行 速度 

*。 清 内 存 ，NEW 

。RUN Na21./ 

再 观察 排序 速度 。 应 该 注意 的 是 ， 上 述 操 作 必 须 先 装 入 
机 器 语言 子 程序 Nm20 ， 这 样 在 程序 Na21 中 ，CALL 768 才 
能 正确 调用 ， 读 者 可 以 思考 这 是 为 什么 ? 如 果 不 调 入 程序 
Na20， 又 会 是 什么 结果 ? 不 言 而 喻 ，CALL 后 面 的 768 ， 应 
是 程序 20 的 入 口 地 址 $0300 。 
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编制 程序 应 注意 的 问题 


为 了 使 初学 者 尽快 地 学 会 程序 编制 方法 ， 在 这 一 章 中 重 
点 介绍 编制 程序 时 应 注意 的 若干 问题 。 在 写法 上 ， 通 过 简单 
易 懂 且 有 一 定 典 型 性 的 程序 实例 ， 简 要 叙述 编程 方法 和 技巧 
的 不 同 侧面 。 还 列举 编程 时 普遍 发 生 的 一 些 错 误 ， 让 读者 在 . 
比较 中 得 到 鉴别 。 另 外 ， 尽 量 选择 一 些 好 的 例题 ， 因 为 它们 
会 给 读者 一 些 有 益 的 启迪 。 


1. 关于 变量 的 初始 化 问题 

在 用 计数 (CN=N+1) ， 求 和 (CS=S+A) ， 及 求 阶乘 
(K = 开 *TI) 时 ， 应 注意 给 变量 赋 初 值 。 

考 罕 下 面 三 个 程序 ， 指 出 有 无 错误 。 

了 由 求 51 


4 NEXT 有 
50 PRINT "号 = ?从 
wo END 
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ULIST 


1O0 LET T =” 1 

20 FOR N = 0 TO0 20 
40T=T+N 

45 PRINT T 

50 NEXT N 

3 PRINT PRINT 
60 PRINT T 

70 END 


@@ 求 10，20，30，40，50 的 平均 值 


SO IFN>》> 5THEN PRINT S / 及 


70 GO0TB 30 


人 中 有 两 个 错误 ， 
。FEORV/NEXT 不 对 应 或 不 配对 ， 将 40 句 NEXT 后 面 的 A 
改 为 IL, 或 干脆 省 去 I 更 好 。 这 样 做 可 以 提高 速度 , 因为 NEXT 
I 每 循环 一 次 ， 都 要 从 程序 开头 往 下 顺序 查找 ， 一 直 找 到 与 
之 对 应 的 FOR 语句 才能 执行 ， 而 无 I 的 NEXT 语句 ， 则 不 需 
要 进行 上 述 寻 找 ， 即 直接 与 FOR 语句 构成 循环 。 这 种 不 带 变 
量 的 NEXT 语 句 ， 在 DATA 语句 大 量 读 入 数据 时 ， 能 明显 提 
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“程序 的 运行 结果 不 是 5! 而 是 5， 应 删 去 20 名 而 改 成 5 
A= 1。 应 该 注意 求 阶 乘 的 初始 条 件 必 须 是 1， 而 且 应 该 放 在 
循环 之 前 ， 否 则 出 错 。 

@@ 中 的 错误 是 10 句 ，T= 1。 求 和 ， 求 乘 方 和 的 初始 化 
条 件 一 定 是 0， 或 不 给 变量 赋 初 值 ， 而 改 用 10 CLEAR。 对 
于 APPLE-I 机 本 题 的 T 变 量 可 以 不 要 初始 化 ， 因 为 在 RUN 
命令 执行 时 ， 内 存 变量 已 置 空 ， 多 次 运行 不 会 影响 结果 的 正 
确 性 。 

图 中 的 错误 ， 一 下 不 容易 看 出 来 ， 用 APPLE- 工 机 执行 
每 次 结果 均一 样 ， 用 PC-1500 机 执行 ， 各 次 结果 不 同 ， 原 因 
是 N 未 清除 ， 不 断 累 加 ， 计 数 愈 来 愈 大 ”用 PC-1211 机 则 不 
执行 ， 因 为 60 句 中 第 一 次 N 未 赋值 。 所 以 本 题 最 好 作 如 下 修 
改 ，20 句 变 为 ，S= 0，N = 0， 这 就 给 变量 N 也 赋 了 初 值 。 


2 数组 元 素 的 下 标 要 恰当 
例如 ， 试 分 析 下 述 程序 的 执行 结果 ， 


DLIST 


1]0 DIM C(20) 

20 FOR I 41 TO 39 
SO CGI) = 工 

40 PRINT CI)S” “多 
5S0 NEXT 工 

60 PRINT 

79 上 上 ND 


现 给 出 两 组 答案 ， 你 认为 哪 一 个 对 ? 
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1l1 12 13 14 15 16 17 18 19 20 
21 22 23 24 25 26 27 28 29 30 

四 11 12 13 14 15 16 17 18 419 20 

第 一 种 答案 认为 循环 20 次 ， 每 次 把 I 值 赋 给 C(ID), 所 以 打 - 
印 20 个 值 。 

第 二 种 答案 认为 循环 虽然 进行 20 次 ， 但 因 C 数组 元 素 的 : 
最 大 下 标 值 是 20，I 值 只 能 赋 给 C(11)，C(12)，…，C(C19)， 
C(20) 之 中 ， 计 算 机 并 没有 开 出 C(21)，C(22)，…，C(C30) 
的 内 在 。 

显然 ， 第 二 种 答案 是 正确 的 ， 请 看 运行 结果 : 

RUN 

11 12 13 14 15 16 17 18 19 20 


5 程序 的 正确 性 要 经 得 起 时 间 的 考验 


如 果 设 计 的 程序 用 一 次 就 失效 了 ， 这 个 程序 的 价值 就 很 
奈 。 下 面 的 程序 十 分 有 趣 ， 它 的 正确 性 是 随机 的 ， 即 有 时 正 
硫 ， 有 时 错误 ， 试 分 析 产 生 错 误 的 原因 。 

题目 是 这 样 的 : 

产生 0 一 9 的 10 个 随机 整数 共 三 组 ， 并 能 找 出 每 组 中 的 最 
大 值 。 

下 面 给 出 用 PC-1500 机 编制 的 一 个 程序 


5:CLESR 
1P:FOR J=BTO 2 
12 COCOR > 
1S:COSUB 506 
29:NEXT 】 
25,FND 
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59:FOR 1=1T0 18 

55,x=INT 《1BkRND 
(D)? 

5EPRTNT 全 

65: IF XM<XLET XM= 
X 

7B:NEXT 1 

72:COLDR 3 

74:-PRINT 

SPFRINRT 2 


思 


80:SFTURN 


请 读者 仔细 分 析 程 序 ， 是 人 否 能 找到 其 中 的 错误 ， 并 请 键 
入 机 器 ， 多 次 观察 运行 结果 ， 检 查 程 序 的 正确 性 。 

最 后 ， 将 发 现 这 个 程序 的 正确 性 确实 是 随机 的 。 

原因 在 于 当 某 次 运行 后 XM 中 放 了 最 大 值 9 时 ， 再 次 运行 
如 果 10 全 随机 数 均 小 于 9， 到 75 句 打印 出 的 最 大 值 仍 为 ?9， 这 
就 出 现 错误 。 而 当 每 组 出 现 的 最 大 值 一 个 比 一 个 大 时 ， 打 印 
的 结果 又 是 正确 的 。 

改正 的 办 法 是 在 75 句 和 80 句 之 间 ， 加 一 句 ， 如 78，XM 
= 0， 则 这 个 程序 的 正确 性 就 能 经 得 起 时 间 的 考验 。 


4 防止 阳 人 死 循环 
请 分 析 以 下 两 个 程序 ， 运 行 后 出 现 什么 情况 。 
中 
10 入 = 0 
320 FOR I= 1 T9 50 STEP 2 
3S0A=A+1 
40 IF I= 9 THEN 60T0O 10 
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50 
GO 
7O0 


@ 10 
20 
109 
110 
12O 
TO 
200 
210 
忆 2D 
240 


NEXT 工 
PRINT 0 AN=u 人 
END 


GO0SUB 100 
END 

PRINT A3" "; 
GOSUB 200 
PRINT A,B 
RETURN 

B = 7 

PRINT B3” "4 
GO0SUS 100 
RETURN 


上 述 两 个 程序 都 属于 死 循 处 ， 第 一 个 程序 永远 跳 不 到 60 


句 ， 因 而 无 打印 结果 ， 


机 器 一 直 循环 不 息 。 第 二 个 程序 虽 能 


打印 出 0 7 0 7 0 7…… 的 结果 ， 但 毫 无 意义 ， 机 器 也 
不 会 停止 ， 除 非 强迫 中 断 。 


5。 和气 阵 输出 注 全 打印 语句 的 安排 


例如 ， 用 双 下 标 变量 写 一 个 程序 ， 要 求 建 立 并 打印 除 对 
角 线 〈 从 左 到 右 ) 元 素 为 9， 其 余 元 素 为 0 的 3 x 3 方 阵 。 
下 面 给 出 一 个 程序 , 试 分 析 打印 格式 是 否 满足 题 意 要 求 。 


10 DIM C(3,) 
20 FOR I = TO 
z0 FORJam1li TOS3S 
40 IF I = J THEN 70 
50 CI,J) = 0 

60 60TQ 80 
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70 CI,J) = 9 
80 PRINT CCIT,J) 


30 NEXT 7 
114CO NEXT I 
12D0 END 


这 个 程序 结构 基本 正确 ， 唯 打印 输出 不 合 要求 ， 正 确 的 
是 作 两 处 改动 ,80 句 后 加 即 80 ”PRINT C(LJ); 添 100 铝 
PRINT。 两 者 缺 一 不 可 ， 否 则 打印 出 来 的 结果 不 是 一 行 就 


是 一 列 。 


6,， 有 入 善 处 理 保 留 字 


例如 ， 试 分 析 下 述 条 件 语句 的 正确 性 。 
50 IF B>A THEN A=B 
这 条 语句 表面 上 看 不 出 什么 错误 ， 逻 辑 关 系 也 是 正确 
的 。 但 它 确实 是 错误 的 ， 对 不 同 微机 来 说 ， 错 误 的 情况 又 不 
一 样 。 
当 我 们 将 上 述 语句 键 人 APPLE-I 或 紫金 -IT 时 ， 一 经 
列表 ， 屏 幕 上 将 显示 出 ; 


5O IFB > AT HENA = 再 
DRUN 
37SYNTAX ERROR IN 5S9 


这 个 AT 是 BASIC 语 言 保 留 字 ， 尽 管 在 输入 程序 时 A 与 T 
之 间 以 空格 符 间 隔 ， 但 在 APPLE SOFT BASIC 语言 中 ， 并 
不 把 空格 视 为 分 隔 符 。 也 就 是 说 ， 若 THEN 字 左边 的 第 一 个 
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字 几 〈 不 管 中 间 是 厅 有 空格 ) 是 A 的 话 ， 系 统 就 会 把 A 与 
THEN 的 T 字 母 合 并 成 AT， 而 造成 错误 。 出 现 这 种 情况 可 用 
括号 将 A 括 起 来 。 

而 在 PC-1500 机 中 ， 上 述 情 况 则 处 理 为 ……ATN……， 
ATN 是 PC-1500 机 的 保留 字 。 解 决 方法 之 一 可 用 括号 处 理 。 

有 趣 的 是 ， 若 将 THEN ， 一 个 字符 一 个 字符 的 键入 机 
器 ， 则 可 避免 上 述 错 误 发 生 ， 反 之 若 将 THEN 在 键入 PC- 
1500 时 ， 用 T. 输 入 ， 则 出 现 上 述 错 误 。 

此 外 ， 对 PC-1500 机 来 说 ， 经 上 述 处 理 后 仍 不 能 正确 运 
行 ， 并 出 现 ERROR 1 IN 50 的 错误 信息 ， 问 题 是 THEN 后 
面 不 能 省 去 LET， 即 应 为 ， 

50 IF B>(A) THEN LET A=B 

或 改 为 

50 IF B>(A) LET A=B 


7,， 重新 读数 不 要 忘记 RESTORE 


例如 ， 求 一 组 无 规律 的 已 知 数 的 平均 值 和 均 方 值 〈10 个 
数 放 在 DATA 区 中 ) 。 


平均 值 ， Me=( 3 二 了 N 


均 方 值 ，C = 


一 1 


程序 ， 
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5M=OC= DDN = 10 
IO FOR I= 1 TON 
2G READ 
SOM=MT++X 

40 NEXT 工 


SOM=M/N: PRINT “"M="M 

4O RESTODORE 

70 FORI= 1 TON 

BO READ X 

930C=C+ (M 一 X) 妆 (MX) 

4100 NEXT I 

itOC= SeoR (C) /NI PRINT "Ce="s 


C 

120 DATA _ 1,-3,2,7,13,5，16,23;0， 
-12 

150 “END 


DRUN 
M= 号 .全 
C=3S.D258883 


说 明 ， 

中 M=0，C=0， 安 排 在 循环 外 ， 是 为 了 求 和 、 求 平 
方 和 、 求 平均 值 、 求 均 方 值 

@ N=10， 也 安排 在 循环 之 前 ， 这 里 是 尽量 使 用 变 量 
来 代 夫 常量 ， 因 为 程序 中 有 四 次 要 用 常数 10， 这 样 做 有 二 个 
好 处 ， 既 可 节省 内 存 ， 又 可 加 快 执行 速度 

图 ”9%0 名 为 什么 用 C=C+(M-X)*(M-X)， 而 不 良 
C=C+(M-X)A 人 2， 这 基于 两 方面 的 芳 虑 ， 首 先 计算 机 做 
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乘 方 是 转换 成 对 数 和 指数 来 运算 的 ， 这 样 速 度 慢 ， 精 度 也 不 
能 保证 ， 改 用 连 乘 会 提高 程序 的 运行 速度 ， 且 比较 精确 ;其 
次 ， 由 于 夏 是 平均 值 ， 若 和 X 值 较 大 ， 则 会 出 现 负 数 的 乘 方 ， 
机 恬 要 出 错 ， 因 为 负数 的 乘 方 无 意义 ， 例 如 ，M=9，X= 
13， 则 (M-X)A2=(9-13)A2=(-4) 人 A2， 机 器 就 不 执 
行 ， 改 用 连 乘 后 全 是 正 数 ， 那 么 执行 110 名 开平 方 也 不 会 出 
现 负 数 开 方 的 问题 

四 最 后 谈 一 下 本 程序 中 60 句 RESTORE 的 作用 。 如 果 
没有 60 句 ， 本 程序 的 80 句 将 无 数 可 读 ， 程 序 出 错 。 


8.， 能 用 简单 变量 的 就 不 用 下 标 变量 


例如 ， 设 计 一 个 方 阵 (5 x 5)， 要 求 
。 任 辣 一 个 正方 形 对 角 线 顶 点 元 素 的 乘积 均 相 等 ? 
任 合 一 个 算 形 对 角 线 顶点 元 素 的 乘积 均 相等 。 
解法 1 : 用 两 维 数组 比较 方便 
10 DIM A(5,5) 
20 FOR I = t TO S 
30 FORJ=17T05 


40 BIT JI) 一 工 关 了 
50 PRINT A(TJ)3w 43 


GO NEXT 
70 PRINT 
890 NEXT 
530 END 
URUN 
124 
24068 10 
洗 O9 12 1 台 
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4 中 1i2 1620 
5 dl9 15 .20 25 


DUz3FRE(2I 
~ 习 94 昌 1 


解法 2 ， 用 桨 单 变量 比较 巧妙 
DLIST 


4140 FOR TI 一 1 TO5 

20 FORJ=I TO5# 1 GTEP 了 
30 PRINT JS 1 

4D NEXT 


D32FRE (ty) 
一 292064 


两 种 解法 结果 一 致 。 而 解法 2 ， 不 用 开辟 数组 ， 程 序 简 
猪 且 节 省 内 存 。 用 PRINT FRE (1) 检查 ， 后 者 比 前 者 少 用 
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217 个 字 节 的 在 迪 空间， 这 是 一 个 不 小 的 量 。 因 此 ， 能 用 入 
单 变 量 解 题 的 ， 就 不 用 下 标 变 量 。 

9.， 洲 量程 序 的 清晰 

例如 ， 人 ER 个 数 分 别 为 1，2，3，4， 


5 ， 而 后 五 个 数 分 别 是 它们 疝 面 5 个 数 之 和 ， 试 编程 计算 并 
打印 输出 这 10 个 数 。 

解法 1: 移 用 简单 变量 

DLIST 


10 DATA 12 4，5 

20 READ Ah,B.CyD,E 

也 心 户 尺 TIN 卫 AN 可 汪 和 人 人 和 和 1 站 和 4 4 人 
$E 


7 有 = 加 
SO B = CC 
30 C = D 
1OQ 了 D 一 上 
11OE= 5 
120 NEXT 
DRUN 

1 2 瑟 45 


15 29 5 109 214 


D2FRE(L) 
一 公 习 如 不 


了 


租 法 2 : 再 用 下 标 变量 


10 DIM X(10) 

20 DATA 1 和 2,5,4:5 

s0 FOR I= 1 TOS 

40 READ X(I) 

s5O PRINT XI)30 1 

0 NEXT : PRINT 

70 FOR TIT 呈 6 Ta io0 

BO X(I)》 = XI -1)+ XIT 一 2) + X 
(IT -了 +XI 一 4) + XI -与 
) 

350 PRINT X(I)89 "3 


4100 NEXT 
LiRUN 
12343 


415 29 56 109 214 


U2FRE(1L) 
一 29404 


比较 上 述 两 个 程序 ， 解 法 2 所 编程 序 简洁 、 清 晰 、 易 读 
性 好 。 当 然 占 用 内 存 是 多 了 一 些 。 

此 外 ， 两 个 程序 占用 内 存 的 情况 ， 说 明了 这 样 一 个 问 
题 ， 程 序 长 〈 解 法 1) 内 存 不 一 定 大 ， 程 序 短 〈 解 法 2 ) 内 
存 不 一 定 小 。 这 主要 看 程序 采用 什么 结构 。 一 般 讲 程序 念 
长 ， 占 用 内 在 愈 多 。 本 题 是 个 例外 ， 因 为 解法 2 用 了 数组 ， 
存 贮 量 增加 。 
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10， 刊 断 循环 变量 是 否 改变 
下 面 是 两 道 容易 出 钳 的 循环 程序 例题 ， 试 号 出 它们 的 迁 
行 结果 。 
由 人 m 东 
0 FOR Am 1 TO L 
30 PRINT Ag ”多 
40L = 
50 NEXT 从 
ao PRINT L 
70 END 


@ LIST 


QQ FOR IT m 1 TO 
201>= 工 二 

30 PRINT TAB( 6)3TI89 “和 
40 NEXT 

50 END 


程序 中 有 两 组 结果 ， 试 判断 哪 一 个 对 ? 

8 7 2 .33 4 5 5 

6 1 2 3 5 

程序 四 有 三 种 结果 ， 哪 一 个 对 ? 

an 2 4 0 

b。 2，4，6，8，10 

c。z 2，3，4，5，6 

显然 ， 程 序 电 的 ! 结果 是 对 的 ， 因 为 循环 体内 的 其 它 语 
名 并 没有 改变 循环 变量 A， 循 环 次 数 仍 是 3 次 ，60 句 打印 的 
是 40 句 的 值 ，40 句 的 工 之 值 不 能 改变 循环 终 值 。 此 题 初学 者 
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过 易 混 消 。 
程序 @ 的 @ 结 果 是 正确 的 ， 因 为 循环 体 中 循环 变量 工 的 
值 被 改变 了 ， 循 环 次 数 不 再 是 5 次 ， 而 应 该 是 3 次 。 


11， 数值 运算 不 要 起 过 机 器 规定 范围 


例如 ， 试 问 将 数 300003 的 百 位 数 和 万 位 数 上 的 堆 换 成 什 
么 数 后 ， 所 得 的 数 是 13 的 倍数 〈 只 要 求 换 的 数 相同 ) 。 
给 出 以 下 程序 ， 


20:A0=380D0093 
39:FOR 1I=191P0TO 
9DB9DDSTEP .1P10 
0 
49;:S= 扩 +1 
SB:IF JINT (S7Z13D2<A 
>S~13THEN 29 
6C.LPRINT S 
7B:NEXT 1 
8D:END 
这 个 程序 从 理论 上 分 析 是 正确 的 ， 语 法 规则 也 没有 乌 
误 ， 可 是 运行 本 程序 没有 结果 ， 在 PC-1500 上 给 出 ERROR 
19 IN 30 错误 。 
原因 是 循环 变量 的 终 值 90900 超 过 机 器 的 规定 范围 , PC3 
1500 机 的 终 值 、 步 长 的 取 值 范围 是 - 32768 一 32768。 
车 将 上 述 程 序 稍 加 改动 ， 即 可 完成 本 题 要 求 ， 即 ， 
2010=3D090683 
3D:FOR 1=1T0 9 


4D;S= 折 +T 水 19BBB+T 冰 
1D9 
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S8:IF INT 《95713)=: 
S“13THEN 
LPRINT S 

68:NExT 工 

28:FND 


320283 


12， 注 节 使 用 扩展 BASIC 语 句 
描述 定义 在 区 间 〈- 10，10) 国 数 y 的 值 ， 见 图 3 。 


图 3 
对 这 样 的 问题 ， 首 先 要 建立 数学 模型 。 显 然 ， 下 述 方程 
能 够 描述 图 3 。 


0 XY< 委 一 10 
2 = | w100- 和 娄 -10<x<0 
10 4XY 志 0 


82 


尖 程 序 No22: 


REM NO。22 


10 FOR xX 一 一 12 TO 10 

2D IFXx> =QOTHENY = 10: GOTO 
69 

3S0 IFX” -40 THEN Y = 0D GTO 
GO 


40Y= SGQR (100 一 XXX X) 
6D PRINJ 本 ”X "8 XyY=aSY 
70 NEX 于 


本 程序 的 特点 是 比 区 23 程序 行 几乎 少 一 半 ， 节 省 内 存 
20 个 字 节 ， 但 二 者 运行 速度 无 大 的 差异 。 


DLIST 

5 REM NO.。 2 

10 FOR X = -12 7T0 10 

20 IF Xx > = 0 THEN 50 

xo IF X 《< - 10 THEN 60 


40Y= SGR ( ABS (1009 一 XXX)) 
45 GOTO 790 


SO Y = 109 

号 “GOTO 70 

LO0OY = 癌 

TO PRINT “X=1 和 X Y= 
BC NEXT X 

20 END 
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Xz= 一 1 全 Y=0 
2 入 Yz=D 
Xc= 一 上 人 Y=O 
X=~ 吕 Y=4。 愉 58 人 9 外 94 
X=~ 旨 YY 和 
X= 一 7 Y=7T。14142643 
X= ~ 白 Y= 日 
Xc 一 导 Y= 昌 .6006025404 
二 一 个 站 = 口 。 人 各 与 了 司 台 全 
X = 一 本 Ys9。 虽 9S920O22 
X= 一 名 Y=9。.79795697 
X= 一 Y= 吕 。 吕 49 旭 74 并 各 
义 三 旭 Y=TtQ 
X= 工 Y=10 
X= 人 YitQG 
X 到 Y=1O 
X= 代 Ye 
X = 与 Y=10D 
X= 名 Y=T1OQ 
Xs=7 Y=1C 
X= 台 Yi 
X= 细 Y=1O0 
X=1 心 Y=10 


两 个 程序 都 不 能 用 XA2， 否 则 机 器 不 执行 ， 虽 然 从 形 
式 上 看 Y=SQR(100-XA2) 与 =SQR(100- XxX) 都 符合 
BASIC 规则 。 

15， 尽量 不 用 GOTO 语 句 

例如 ， 求 全 班 学 生 某 一 门 课 的 平均 成 绩 。 

解法 1， 
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解法 2， 


(站 


5S:S=D 
B:REBD X 
S:IF。x=-1THEN 40 
69:S=S+X 
3D:60TO 19 
40:LPRINT SZ2D 
685:DAT 87,， 65，98， 
ZryBp 32 6 
7、S3D, 98 
:DATA 95,，68，69， 
83,，>74, 95，88，87 
| 


823 . 护 
S5:S=B 
189:FOR I=1T10 29 
28:READ 欠 
38:S=S+ 愉 
4B:NEXT 】 


SD;LPRINT SZ20 
658:DATA 87, 65, 98， 
25, 190, 92; 86; 2 
7, 99, 98 
;DATA 96;, 68, 63， 
85, 2724, 95 86,， 87 
， 85;, 93 


85.6 
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识别 ， 

人 解法 2 不 用 GOTO 语句 ， 速 度 比 解法 工 提 高 一 倍 ， 
如 果 数 据 更 多 ， 或 者 程序 中 省 去 多 个 GOTO 语句 ， 则 提高 运 
行 速 度 更 为 明显 

@) 解法 2 的 程序 中 ， 如 果 50 句 改 成 LPRINT(S/]T)， 
旭 结 果 就 不 对 了 ， 变 成 81.52380952 ， 原 因 是 循环 结束 ， 终 
值 加 步 长 1，L= 21， 而 不 是 20, 这 是 循环 的 基本 概念 ,初学 
者 常常 弄 错 。 

14.， 尽量 少 用 乘 方 运算 

有 三 位 整数 ， 等 于 每 位 整数 的 立方 和 。 

例如 ，153 = 13 + 53 + 33 称 水 仙 花 数 ， 试 求 100 到 1000 之 
间 的 水 仙 花 数 。 

解法 1 ， 设 所 求 的 数 为 工 ,这 是 一 个 三 位 数 , 设 百 位 数 、 
十 位 数 和 个 位 数 分 别 为 X，Y，Z， 显 然 ， 满 足 I= 允 3 + 了 3 
+23 的 数 才 是 所 求 的 水 仙 花 数 。 
由 于 要 找 100 到 1000 之 间 的 水 仙 花 数 ， 可 以 安排 一 个 循 
让 其 逐个 “扫描 “”。 
百 位 数 , X =INT(I/100) 
十 位 数 ， 了 = INT((GI- X*100)/10) 
个 位 数 ，Z =I- X*100 一 区 *10 
见 程序 ，No24; 
SREM NO.24 
10 FOR TI = 100 TO 999 


20X= INT (TI 7/ 100) 
30Ya INT CGI 一 Xe Oo03 7 340) 


环 


下 


36 


40-Z=I-Xx100- Yi10 
50 IFI《 >XeS+YyYw~3S+7zA 


THEN 70 
6D PRINT I 
7Q NEXT I 
80 “END 


运行 上 述 程序 后 ， 并 没有 任何 结果 。 在 PC-1500 机 上 运 
行 了 3 分 20 秒 ， 在 APPLE- 开 机 上 运行 了 2 分 10 秒 ， 均 以 提 

再 仔细 检查 原 程序 和 键入 机 器 的 程序 均 没 有 错误 ， 程 序 
设计 和 语法 规则 也 都 是 正确 的 ， 那 么 是 什么 原因 呢 ? 

原来 ， 在 BASIC 语 言 中 ， 计 算 机 做 乘 方 是 通过 对 数 与 指 

如 求 ， 和 = 42 

实际 上 是 先 做 InX = Bin4 的 运算 ， 再 得 到 和 = eam4 

即 机 器 求 和 值 ， 是 先 求 4 的 对 数 ， 再 乘 了 3， 然 后 进行 指 
数 运算 ,这 就 解释 了 机 费 进 行 乘 方 运算 ， 速 度 所 以 慢 的 原因 。 

同时 ， 上 述 运 算 要 求 4 既 不 为 零 ， 也 不 能 为 负数 ， 国 产 
机 DTS-100 系 列 以 及 PC-1500，APPLE-I， 紫 金 - 工 都 有 这 
个 约定 。 

另外 一 个 很 重要 的 原因 ， 就 是 机 器 做 乘 方 运算 精度 不 
够 。 例 如 3 = 81，， 而 机 器 计算 得 出 的 结果 是 80.9998; 又 
如 ，63= 216， 而 计算 机 显示 的 结果 为 215.9999, 这 就 解释 了 
为 什么 上 述 程序 运行 后 得 不 到 正确 结果 的 原因 。 

例如 ，153 这 个 数 是 一 个 水 仙 花 数 ， 因 为 


13+54+33= 153 
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但 机 器 执行 上 述 程序 时 ， 会 出 现 什么 情况 呢 ? 如 。 
1= 153 
执行 20 句 X=1 
执行 30 句 了 =5 
执行 40 句 Z=3 
执行 ”50 名 Ts1A3+5A3+3A 人 3 
从 而 跳 到 70 句 ， 再 循环 。 出 现 50 句 不 等 式 成 立 的 原因 
是 1A3+5A3+3 人 A3<s153( 这 是 计算 机 精度 不 够 造成 的 )。 
通过 这 个 例题 ， 可 以 得 出 这 样 的 结论 ， 以 后 编程 时 ， 尽 
量 少 用 乘 方 ， 特 别 是 要 求 精度 较 高 的 问题 ， 更 不 要 用 乘 方 运 
算 ， 因 为 它 的 运算 既 不 精确 ， 而 且 速 度 也 慢 。 
那么 ， 上 面 的 题目 是 否 无 解 呢 ? 显然 不 是 的 ， 它 不 仅 有 
解 ， 而 是 有 多 组 解 ， 方 法 之 一 是 把 所 有 立方 数 改 成 连 乘 。 程 
序 及 运行 结果 如 下 : 
5 REM  N0.25 
40 FOR I = 100 TO 999 


20X= INT (IT / 100) 
SOY= INT (CI 一 X# Oo /10) 
402Z=ITI-~X+#t100 一 YAf 1O 


SQ IFIKC >》X 失 X 基 YX 直 玫 其 下 和 掀 
Y+Z 关 ZKH# Z THEN 70 
60 PRINT XyY，Z 


70 NEXT I 

80 END 

DRUN 

上 所 要 
本 了 O 
忆 7 了 
入 O 7 


上 述 程 序 在 PC-1500 机 上 运行 工分 40 秒 ， 在 APPLE- 艺 
机 上 运行 约 40 秒 。 这 也 进一步 说 明了 不 用 乘 方 ， 速 度 快 多 
下 

上 述 运 行 结果 表明 I>407 以 后 就 没有 水 仙 花 可 找 了 ，: 吴 
了 以 10 句 改 成 FOR 1= 150 TO 410， 则 运行 更 快 ， 因 为 洽 去 了 
600 多 次 无 效 循 坏 。 

说 明 ， 上 面 我 们 通过 14 个 方面 ， 近 22 个 程序 ， 对 程序 设 
计 中 注意 的 问题 进行 了 实例 分 析 和 初步 探讨 。 这 些 问 题 一 般 
来 说 比较 简单 ， 仅 仅 勾画 了 程序 设计 技巧 的 一 些 侧 面 。 实 呈 
上 ， 编 程 的 方法 和 技巧 ,注意 的 问题 和 方面 , 远 远 不 止 这 些 。 
我 们 将 在 以 后 的 内 容 中 不 断 补 充 、 不 断 扩展 。 同 时 ， 节 和 希 亡 
广大 读者 ， 在 实践 中 不 断 总 结 提高 、 有 所 发 现 有 所 创 遗 ， 编 
制 出 更 多 更 好 的 程序 来 。 
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六 、 打 印 答 出 的 技 妃 


人 们 在 利用 计算 机 进行 计算 的 时 候 ， 总 是 需要 把 计算 的 
结果 通过 输出 设备 打印 出 来 。 在 BASIC 语 言 中 ， 基 有 两 种 打 
凶 语 句 ， 一 种 是 PRINT 语 铝 ， 它 使 输出 的 数据 在 显示 器 的 
屏幕 上 显示 出 来 另 一 种 是 LPRINT 语句 ， 它 使 输出 的 信息 
在 打印 纸 上 打 印 出 来 。PC-1500 机 同时 有 具备 上 述 两 种 打印 语 
旬 ， 而 APPLE IT 只 有 PRINT 语 句 。 

在 这 一 章 ， 我 们 不 想 重 复 讲 述 有 关 打 印 语句 的 功能 、 规 
唱和 输出 格式 等 内 容 ， 因 为 这 些 内 容 对 已 学 过 BASIC 语 言 的 
读者 来 说 ， 显 得 多 余 和 烦 开 。 而 对 没有 学 过 BASIC 语 言 的 同 
志 来 说 ， 可 以 从 任 一 本 教材 和 书籍 中 查阅 。 

这 里 要 介绍 的 ， 是 打印 输出 方面 的 一 些 技巧 和 实例 ， 而 
这 些 可 能 是 一 般 书 籍 中 很 少见 到 的 。 目 的 在 于 提供 使 用 。 


1 输出 空格 函数 (SPC 了 数 ) 的 使 用 

如 果 某 些 问题 需要 按照 某 种 特定 格式 输出 时 ， 仅 用 
PRINT 语 句 ， 显 然 是 不 够 的 ， 虽 然 它 们 比较 方便 ， 但 过 于 死 
板 。 使 用 SPC 函 数 和 TAB 函数 〈 输 出 定位 函数 ) ， 将 使 输出 
格式 更 加 自由 灵 便 。 

SPC 〈 扫 算术 表达 式 >) 只 能 与 PRINT 语句 连用 ， 其 功 
能 是 生成 若 干 空格 。 

例如 ， 显 示 如 下 设计 的 工资 表 头 
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并 其 共 基 其 其 其 其 花 认 其 浙 关 条 
其 闪 
# WAGES 人 IST 条 
导 长 
其 凑 其 其 其 基 其 其 其 其 其 基 其 基 


则 程序 设计 为 No26， 


DLLIST 


5 REM NGO.26 

1G 失利 = 是 其 其 其 其 拓 凑 长 其 区 其 基 新 其 其 外 

20 PRINT SPE( 12) 中 从 向 

30 PRINT SPC( 12)872 3 SRPC( 12)》 
5 外 其 央 

40 PRINT SPC( 12) 和 2 X" 3 SPCC 1) 
"WAGES2"3 SPC( 1)52LIST" SPC《 
1) 8 天 有 

50 FRINT SPC( 12)87#2 SPC( 12) 
多 用 其 生 

CO PRINT SPC( 12) 从 矶 


程序 执行 后 ， 即 可 显示 如 上 形式 的 表 头 。 
2. 输出 定位 西数 (TAB 西数 ) 的 使 用 


(1) 下 面 是 用 TAB 国 数 来 改写 前 面 那个 列 印 工 资 表 妆 
的 程序 ， 见 程序 Nao27， 
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OLIST 


瑟 

40 
20 
SO 


40 


筷 中 
和 避 


REM NO.,27 

从 密 到 日 谋 闪 其 其 其 其 其 其 其 其 其 其 名 手 四 

PRINT TAB( 1 本 ) 3 分 韦 

FRINT TAB( 1S)3 站 "2 TAB( 26) 
多 0 其 1 

FRINT TAB( 1)3 Hg TAR( 15) 
和 人 全 GES2 TAB(C 21)9LITST" 3 TAB( 
吕 白 ) 和 诗 

PRINT TAB( 1S)82 03 TAB( 26) 


是 其 中 


FRINT TAB( 半 本 了 人 种 


污 者 可 上 机 运行 此 程序 ， 观 察 其 结果 。 
《2) 打印 图 案例 题 ， 见 程序 Nm28: 
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S:REM NO.28 
7;CSIZE 1 
8:FOR K=1T0 5 
9;COLOR. 3 
109:LPRINT TAB 《18 
?3 水” 
208;X=18 
38:Y=x 
4B:FOR I=1T0 5 
SB8;X=x-1 
6B8:Y=Y+1 
7B;LPRINT TAB 〈Xy》 
3 TAB 《YYD) 
水 ” 
88:NEYXT 1 
85;COLOR 2 
98:FQR IJ=1I0 4 


129:X 

1182:Y 

12B:LI T TI9B 《X)》 
) 


;TB 〈Y23” 


交工 二 叶 


139: NEXT 1 

149:LPRINT TAB 〈18 
5 伺 米 沁 

1509:NEXT K 

160:END 


5,， 数据 的 列 印 输出 


这 是 指 将 有 关 的 数据 列 印 在 纸 上 。 
(1 ) 一 般 当 用 的 方法 ,打开 打印 机 电源 ,键入 PR#1。/， 
邯 可 启动 打印 机 ，LIST。/， 所 有 在 屏幕 上 的 程序 在 打印 纸 上 
打印 出 来 。RUN 打 印 输出 结果 。 不 用 打印 机 时 , 按 RESET 
键 或 键入 PR#0。/。 
若 要 打印 80 个 字符 ， 可 在 键盘 上 键入 POKE 1657，80./ 
若 要 打印 高 分 辨 率 图 象 ， 可 键 和 人 PRINT CHRS$ (17)./ 
和 POKE 1913，1 等 。 
(2 ) 在 程序 中 用 打印 机 命令 ， 见 程序 No29， 
LIST 
要 REM NO,.29 
10 PR# 工 
206 PRINT "CTRL TI BON'" 
30 PRINT ”PTINTER" 


40 PRINT "CTRL 工 I" 本 
s50 PRINT "SCREEN AND PRINTER 
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5 FRINT “QNERTYUIOPASDNJUJHBVYGFCX 
LERDSEYGHU” 

如 DPRINT “ZXCYENMKJHGF 了 ” 

7ZO PR 提 全 

人 0 PRINT ”SCREEN GNLY"” 


RUN 

CTRL I SoN 

PTINTER 

[CTRL 工 工 

SCREEN AND PRINTER 

已 NERTYUIOPASDNJHBYGFCXDRDSEYGHU 
ZXCVYRBNMKJHGFD 


〈3 ) DOS 不 在 内 存 中 的 列 印 方法 ， 见 程序 Na30， 
世 LITST 


马 REN NO。. 30 

FRR 坤 1 

卫 癌 从 密 二 时 攻 其 其 其 营 评 必 基 其 其 其 关闭 括 时 

20 PRINT TAR( 了 了 本) 8 从 而 

本 二 PRINT TAB 人 二 89 共 1 TAB( 206) 
多 咎 区 昌 

4 PRINT TAB( 1S)80X23 TABR( 15)》 
“NAGES" TAB( 21)34LIST" TAB( 


人 白 )》 和 症 其 电 

50 PRINT TAB( 1 了) 共 08 TAB( 26) 
3 中 其 昌 

Gu FRINT TAB 人 ( 工 芳 ) 从 事 

70 PR# oO 


RUN.…， 程 序 执 行 到 5 名 时 系统 自动 接 通 打印 机 ， 然 后 
打印 工资 表 头 在 纸 上 ， 至 70 句 ， 输 出 设备 又 恢复 为 终端 。 
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《4 )》 DOS 存 在 于 内 存 之 中 的 列 印 方法 ， 见 程序 由 31s 


ULIST 


DREM NO.31 
1 D 委 一 CHR 币 (4) 


9 


一 


PRINT 了 种 $ "PR 提 玉 


10 内 串 一 由 攻关 洗浴 其 托 基 斌 攻关 其 其 其 其 下 


20 


SO9 


49 


| 


GO 
70 


PRINT SPC( 12) 8 人 向 

PRINT SPG( 12)" 共 "3 SPC( 12》 
? 有 其 

PRINT SPC( 12)832"#"3 SPC( 全 )， 
“AGES" 3 SPRO 1)32LIST" 3 SPE 
4》 日 其 叶 

PRINT SPC( 12)82#X23 SPC 1 人 4) 
有 和 凑 鱼 

PRINT SPC( 】 乙 ) 8 全 唐 

PRINT 了 D 囊 8 “PR 并 口 " 


即 在 有 关 打 印 语句 前 加 入 : 〈 行 号 ) DY = CHR4$(4),《 行 
号 ?PRINT D3$; “PR#12 ,返回 终端 用 :《〈 行 号 》 PRINT  D4j 
“PR#02 。 

PRINT 可 以 用 ? 代替 。 


4 


打印 机 输出 控制 


(1) PRINT CHR$(12) 语 名 一 一 跳 新 页 


如 果 输 出 资料 需要 打印 在 新 页 时 ， 可 在 打印 语句 前 加 一 : 
你 语 句 ，PRINT CHR$(12)， 例 如 ， 程 序 N32， 
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ULIST 


汪 REM NO.s2 

瑟 PR# 1 

7 PRINT CHR 叫 (12) 5 

10 REM PRO-S5 

20 PRINT "THIS IS A BASIC PROGR 信 


3S0 PRINT "DO YOU NANT PRINT《Y/VN》 
40 PRINT "THIS IS 和 AUTO APPLE 4 


SO PRINT ”USE EXEC INSTRUCTION" 
GO END 


运行 程序 后 ， 下 述 结果 打 印 在 新 页 上 。 


THIS IS A BASIC PROGRAM 
DO YOU NANT PRINT (Y/N)? 
THIS IS A _ AUTO APPLE: 
USE EXEC INSTRUCTION 


《2 ) PRINT CHR$(10) 语 句 一 一 跳 行 控制 ”例如 , 屋 
好 No33， 


DLIST 

王 REM NO。3S 

40 PR 林 工 

20 PRINT "THIS TI9S 人 BASIC PROGRA 
M'v 


50 PRINT CHR$ (10) 


296 


40 PRINT "DO YOU NANT PRINT(Y/VN) 
1 


s0 PRINT “CHR 目 〈10) 
20 PRINT_ "USE EXEC INSTRUCTION" 


DRUN 
THIS IS A BASIC PROGRAM 


DO YOU NANT _ PRINT (Y/7VN)? 


USE EXEC INSTRUCTION 


《3 ) 字体 放大 、 缩 小 与 还 原 
打印 机 在 输出 时 可 将 字形 横 和 竖 方 向 各 放大 2 倍 或 缩小 
为 二 分 之 一 ， 以 达到 放大 或 缔 小 字体 的 目的 。 
PRINT CHR$(14) 一 一 字体 放大 2 倍 
PRINT CHR4(15) 一 一 字体 缩小 为 1X2 
PRINT CHR4$(13) 一 一 字体 还 原 
下 面 是 一 个 打印 实例 ， 见 程序 No34， 


10 REM NO.3S4 

20 PRINT CHR 囊 《4)》8 wmFPR 提 1 

30 PRINT 

40 6 事 = "BASIC" 

50 8B$ = "PROGRAM" 

6GO PRINT 内 囊 ，B$$ 

79 PRINT CHR 事 《14)8A 囊 ;9 日 贞 CHR 争 
(31 ) ,内 币 

80 PRINT CHR 事 《14) 3A 囊 ，B 刘 

930 PRINT As 
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3S5 PRINT CHR 钊 (工本 》8 和 车 ， 甩 种 
09 FRITNT 从 委 。 焉 囊 


419 PRINT CHR 呈 《15)》5 人生 1。 9 昌吉 
CHR 各 (18) 5 和 十 全 
日 币 

了 T20 PRINT CHR 各 《15)》 及 吉 8 0。 入 作 
CHR 吉 《14)》， 人 和 


JS39 PRINT 
了 和 口 。 PRINT HR 向 《和 尘 ) 和 “PR 提 加 0 
150 END 


才 RUN 


BASIC PROGRAM 
了 过 三 三 愉 马 和 愉 生 M BASIC 
了 荫 国 二 工 生 了 呈 愉 所 咎 六 全 I 


BASIC 

BUSIC FRR 二 

ASIC ROSS 

DA6IC PIGRAM BASIC PROGRAM 

51C PR 名 则 BASIC 


5 打印 输出 结果 的 对 齐 处 理 

在 打印 输出 计算 结果 时 ， 总 希望 输出 格式 统一 美观 ， 如 
字符 输出 前 面 对 齐 、 输 出 结果 后 面 对 卉 、 或 者 打印 成 简单 的 
报表 形式 ， 那 么 ， 在 程序 中 如 何 实现 呢 ? 

(1) 字符 输出 的 前 面 对 齐 “请 看 程序 吧 35， 该 程序 十 
分 简单 ， 循 环 读数 并 打印 输出 ,为 了 使 输出 的 结果 前 面 对 齐 。 
主要 加 了 50 句 ， 下 面 是 程序 清单 和 运行 结果 。 
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REM ND.SS5 
N = 310 
DIM X(N),Y(N),Z(N) ,WIN) 
FBGR I = 1 TO N 
READ XIT),Y(I)，ZGI) NOIT) 
PRINT TAB (、 1)SX《IT)3 SPC( 40 - 
LEN (.STR 囊 (X(TI))))3Y(I) SPCK 
12 一 LEN ( STR 让 (Gy(T)))》 ?和 Z 
TI) SFC( 13 - LEN ( STR 事 〈(Z 
(I)7))3N(ET) 
NEXT 工 
DATA 0.2,0.14,0.432，1.00 
DATA 1.0:0.431.7S4，0.994 
DATA 2.0D。6B2.782，0.982 
DATA 3 了 。 6， Q.9S。eo0y0.97D 


110 DATA 4.0,1.09,4.254,0.956 
120 DATA 呈 .0y1。27，4。 昌 45， 0.939 


D DATA 6.01。43:55。242,0.921 


140 DATA 昌 。0,1.74,5.965,0.891 
150 DATA 10)2.02:6.53D,0.8XS 
160 DATA 12，2。28,7.057，0。794 


个 茹 清 网 月 王 


ff [OO 


ji 之 


工人 432 1 

4 本 1 74 。 吕 中 . 
。 6 2.782 .982 
。 了 .66 .97 
1.09 4 。254 。 956 
1 27 4 .名 4 号 。 口子 人 
1 .4 下 。242 921 
1.74 .965 .SBBi 
2.02 白 。S5 闻 .全 3 


忆 。 又 日 7aOS5S7 74- 
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(2 ) 输出 字符 的 后 面 对 齐 “和 上 面 程序 基本 一 样 ， 只 
需要 改动 50 句 为 : 
50 FRINT SPC( 3- LEN ( STR 机 《 
X(T))))8X(I) SPC( 10 ~ LEN 
( STR 币 (YI(T))A)SY(I)3 SPC( 1 
2 - LEN ( STR 和 (Z(I))))3Z(TI 
)8 SPC( 4143 -~ LEN ( STR 利 (WN( 
IT))))sN(I) 


输出 结果 如 下 : 

RUN 

。 代 .4 。 4X2 1 
。 4 瑟 1.734 “994 
忆 。 了 晶 22。782 。 呆 过 
3 。 吕 S。606 。 中 7 
有 终 1。.O9 人 4。254 .954 
与 1。27 4。 台 45 。 电 习 呆 
如 1 。4 马 与 。 忆 4 全 9921 
8 1.。74 瑟 .965 .81 
140 人 .02 白 。 与 本 .日 3S 
1 2 4 7。.057 794 


(3 ) 打印 成 报表 形式 ”用 调子 程序 的 方法 ， 在 需要 画 
线 的 地 方 就 调 画 线 子 程序 (500 句 ) , 应 该 指出 的 是 , 子 程序 的 
最 后 , 除了 加 510 句 RETURN 以 外 ,还 应 加 505 铝 判断 语句 ， 
IFI >10THEN END, 否则 在 打印 结束 后 , 出 现 ? RETURN 
WITHOUT GOSUB ERROR IN 510。 转 子 程序 放 在 循环 
中 ， 即 46 GOSUB 500。 下 面 是 程序 Ne36 的 清单 和 结果 ， 字 
符 输 出 采用 后 面 对 齐 的 方式 。 
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REM ”NO.3S6 

N = 10 

DIM X(N) ,YN) ,Z(N) ,N(N) 

FOR TI = 1 TQN 

READ X(T),Y(I),，Zz(IT) ,NI) 

GOSUB 500 

PRINT SPC( 2 -~- LEN ( STR 《 
X(IT))))3X(T)3 SPC( 10 -LEN 
( STR 机 (Y(I))))3SY(I)3 SPC( 8 
2 -~- LEN ( STR$ (Z(I))))3Z( 
)7 SFPCC 4S - LEN ( STR 贡 (WU 
I))))sW(I》 

NEXT I 

DATA ”0.2,0.14,0.4352，1.00 

DATA “1.0,0.435,1.7354，0.993 

DATA ”2.0,0.68,2.782,0.982 
DATA SS0,0.9,35.660,0.970 


DATA ”4.0,1.09,4.254,0.95 和 
DATA “5.0,1.27，4.845,0.939 
DATA ”6.0，1.43,5.242，0.928 
DATA 日 .0,1.74，5.965,0.881 
DATA 10,2.02,6.5350,0.835 
DATA 12,2.28,7.057,0.794 


一 一 一 一 一 一 一 一 一 -一 一 一 一 一 一 一 


IF TI > 09 THEN END 
RETURN 
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2 1 
77534994 
区 2.7e2 .5e2 
区 sk 
ee 

4 1.09 人 4.。 民 与 4 四 
5 127 4.845 .9s9 
6 145 5242 .921 
下 s.se5 .eei 
lo 2.oz2 6ss .ess 
12 2.28 7.osz .7o4 


一 一 -一 一 一 一 一 一 一 一 一 一 一 一 一 一 -- 一 一 一 一 一 -一 一 一 - -- 一 一 一 一 -一 一 一 一 


(4) 小 数 点 对 齐 的 打印 输出 “在 打印 输出 数据 时 ， 和 
常 希望 小 数 点 能 够 对 齐 ， 下 面 采 用 字符 串 图 数 来 处 理 这 类 问 
题 。 

例如 ， 有 10 组 数据 已 存放 在 DATA 区 中 ， 现 需要 将 每 组 
中 的 第 2 项， 第 3 项 数据 打印 出 来 ， 且 要 求 小 数 点 对 齐 。 

以 小 数 点 后 取 两 位 为 例 ， 

首先 让 如 = X*100， 这 就 是 将 每 组 的 第 2 项 数值 扩大 100 
倍 , 如 0.14 就 变 成 14，1.09 则 变 成 109。 
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其 次 将 B 值 变 成 字符 ， 刀 TI = “DID +STRS 
《B)。 

再 使 IT = RIGHTS(CTS$，8)， 即 从 右边 取 Ts 的 8 个 字符 
(空格 也 算 一 个 字符) ， 如 吓 呈 记号 记 记 14 和 由 De 
109 和 从 。 

了 最 后 安排 PRINT LEFTY (T3，6) + “《。?”+RIGHTS 
(TS3，2)， 这 样 ，14 和 1.09 的 小 数位 就 对 齐 了 。 

其 它 各 位 由 循环 自动 完成 ， 而 对 于 小 数 点 后 三 位 的 处 理 
方法 同上 ， 但 必须 用 新 的 字符 串 变 量 ， 本 例 中 用 Q3。 

下 面 给 出 程序 No37 和 结果 ， 注 意 体 会 取 字 符 个 数 及 空格 
数 的 安排 。 


1Q REM NO。 了 7 

SO FOR I= 1 TO 10 

4 READ ZXsYy 本 

45R=XxA 人 和 1l10ooC0C = YX oOcoo 


47 T 囊 = ， "+ STR (B) :Q$ = 
n "+ STR 种 《C) 

50 T 惠 = RIGHT 车 (T 吊 ,B)sQ 囊 = RIGHT 下 
(@ 囊 11 ) 


与 乙 及 RINT 灶 区 六 了 和 机 〈T 机 OO) 二 1 二 RIGHT 车 
(了 贰 ， 了) 
S54 PRINT TAB( 412) 和 人 LEFT 惠 〈 人 向 日) 
+ nn + RIGHT 韦 〈 口 宙 芭 ) 


4O NEXT 工 
7 DATA oa0.14,0.452，1.00 

BO DATA 1.0,0.43，1.734，0.994 
DO， DATA 2.DD。.682.7B2，QG.9382 
100 DATA .0 9.9yS.6600.970 
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1140 DAT 4.22549D。9564 


4.0,1.09， 
120 DATA 5.0,1.27,4.9845,0.939 
130 DATA ”6.0)1.43)55.2420.921 
140 DATA 8.0,1.74,5.965.0.8981 
450 DATA_ 10,2.02,6.530,0.835 
160 DATA 12,2.28.7.057,GO。794 
人 RUN 
。 14 。432 
。 4 二 1。7XS4 
4 日 2.782 
.90 3S.660 
1.09 4.254 
1.27 4.845 
1 .4 卫 与。242 
1.74 瑟 .965 
2.02 6.53O0 
2 .2 7.057 


二。 字符 的 放大 打印 

在 APPLE-I 微 型 计算 机 的 外 围 设 备 EPSON，CP80 等 打 
吧 机 中 ， 有 一 个 控制 符 CHRS$ (14)， 其 功能 是 设置 放大 字符 
打印 方式 ， 但 这 个 放大 打印 命令 只 对 一 行 有 效 ， 即 它 只 能 ) 
大 打印 此 控制 符 后 面 的 一 行 字符 ， 虽 然 字 体 美 观 醒目 ， 但 一 
遇 回 车 字符 (CR) 后 ,其 放大 打印 方式 将 被 自动 解除 。 如 果 要 
打印 给 出 多 行 的 放大 了 的 程序 清单 或 数据 等 ， 则 要 在 每 一 行 
前 加 PRINT CHR4$(14)》 实在 感到 过 于 烦琐 ， 若 改 用 下 面 的 
机 器 语言 程序 ， 便 可 较 好 地 解决 字符 的 放大 打印 输出 问题 。 

机 器 语言 的 起 止 地 址 为 $0300 一 80323， 在 CALL-151 监 
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控 状 态 下 ， 刍 入 ， 


共 写 DO。 了 3 忆 本 


QOSOO- 2 DOE 85 36 89 035 85 37 
DO08- 20 EN oO3s 4C bo Cl 85 1C 
0O3t0O- 20 00 Cl1 AS 1C 9 8D DO 
0O31B- DA AD 1B 2 DO Pt A9 DOE 
OO320O-~ 20 00 Cl CD 


将 上 述 机 合 语 言 子 程序 在 和 磁盘 备用 ,， 取 文件 名 为 BIG。 
存盘 方法 ，BSAVE BIG，A4 300，L523。 

放大 打印 的 操作 步 艰 及 实例 如 下 ， 

。NEW。) 

。BLOAD BIG。) 

。LOAD No26。/ 

*。PR#] 7/ 

。CALL768.。/ 

。LIST.。) 

。RUN。/ 

e。 PR#0O./ 

说 明 ， 

“BLOAD BIG ./ 是 指 调 已 存 于 盘 中 的 文件 名 为 BIG 的 
机 器 语言 子 程序 。 

“LOAD 后 面 可 以 是 任意 一 个 存 于 盘 中 的 程序 或 文件 ， 
本 例 是 调 No26 文 件 。 

"CALL 后 面 的 768 ， 是 10 进 制 数 ， 对 应 的 16 进 制 数 是 
300， 它 正 是 机 器 语言 子 程序 的 入 口 地 址 。 
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还 下 


3 < 
时 世家 


和 二 下 


手语 王 主 所 名- 吓 证 


< 斌 


证 JS 工 


3 


证 


-省 


二 


3 -3 


区 .3 瑟 ~ E《 T 


去 汪 》<s 汪 了 


ea 


丈 扣 《< 


四 -5 


意 as -26G os 区 《2 


下 sa se 昨 攻 C 


部 


下 


间 


NI 


>》 < 人 至 2 < 7 
? 二 < 工 3 上 
aa -下 上 本 四 世 下 
3》 2 占 本 马 3 吾 昌 
》 二 < 3 工 < 《7 坟 
seeo 襄 
》 二 < -Na CS 
3》 x 了 心 是 人 3 -LE\3 王 <3 《3 
人 = 5 3 下 
雪 辽 - Ci 中 -二 3、 ee 


-有 和 3 工人 
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七 、 程 序 调 试 技巧 


这 一 章 主 要 谈 程序 调试 问题 ， 但 是 ， 很 显然 程序 调试 不 
是 一 个 孤立 的 技术 ， 也 涉及 微机 应 用 和 操作 的 实际 本 领 ， 
以 及 语言 的 编程 方法 和 技巧 问题 ， 因 此 ， 我 们 尽量 谈 及 和 解决 
问题 的 各 个 方面 ， 但 主要 偏重 于 调试 技巧 。 


1 不 同 机 器 的 差异 


当 我 们 编制 好 程序 ， 上 机 调试 的 时 候 ， 会 发 现 这 样 的 情 
同一 个 程序 在 不 同 的 机 器 上 执行 结果 相差 很 大 。 
这 里 有 两 个 实例 ， 
例 1， 写 出 程序 Na38 的 运行 结果 ， 
19:REM NO. 38 
28:FOR X=1TO 19 
TEP 8 
358:LPRINT X; 
4D:NEXT X 
58:;FND 
我 们 驳 不 忙 上 机 执行 ， 而 是 判断 一 下 可 能 是 什么 络 果 ， 
今 给 出 以 下 三 种 答案 ， 你 认为 哪 一 个 对 ? 
。10 个 1 
"无 劳 多 个 4 
。 没 有 结果 。 
现 来 分 析 一 下 上 面 三 种 解答 ， 第 一 种 解法 认为 循环 次 数 
407 
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划 10 次 ， 第 一 次 循环 初 值 1 赋 给 和 ， 未 超过 终 值 ， 故 执行 

循环 体 后 打印 输出 为 1， 因 步 长 为 0， 再 循环 10 次 ， 所 以 输 

出 10 个 1。 持 第 二 种 解法 的 观点 似乎 更 妥当 些 ， 因 无 步 长 

可 加 ， 永 远 达 不 到 终 值 ， 所 以 认为 有 无 数 个 1。 第 三 种 解 法 

认为 没有 结果 ， 理 由 是 有 的 微机 不 执行 0 步 长 的 程序 。 
那么 ， 究 竟 哪 一 个 答案 对 呢 ? 

现 把 程序 Nao38 键入 PC-1500 机 ，RUN.J， 于 是 有 以 下 
显示 ， 

ERROR 19 IN 20 

结果 表明 :， PC-1500 机 不 执行 步 长 为 零 的 循环 程序 。 

应 该 指出 的 是 ， 上 述 程序 是 正确 的 ， 第 二 种 解答 的 正确 
性 也 是 不 容 怀 疑 的 ， 在 有 的 微机 〈 如 APPLE-I) 上 ， 解 为 
无 数 个 1， 有 兴趣 的 读者 不 妨 试 一 下 。 

例 2， 试 问 将 数 300003 的 百 位 数 和 万 位 数 上 的 零 换 成 
什么 数 后 ， 所 得 结果 是 13 的 倍数 (只 要 求 写 出 正确 的 程序 ， 
换 的 数 相同 ) 。 

有 人 给 出 程序 No39， 

19:RENM NO0.39 

28:;9=359088D3 

3B:FOR JI=191DDT0 
329DBSTEP 1818 
B 

4B;S=6+1 

58:IF INT (S7~13) 
>S713THEN 78 

5D;LPRINT S 

7B:INEXT I 

88:END 
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这 个 程序 从 理论 上 分 析 是 没有 错误 的 ， 语 法 规则 似乎 也 
对 ， 可 是 运行 杰 程 序 却 设 有 结果 。 在 PC-1500 机 上 同样 给 
出 19 类 错误 ， 原 因 是 循环 变量 的 终 值 90900 超 过 规定 范 
罩 。 但 是 ， 辐 样 这 个 程序 ， 在 APPLE-I 机 上 ， 却 可 以 得 到 
正确 的 结果 ，320203。 
请 看 ， 程 序 Nm40， 
430 REM NO。.40 
20 A = SO0003 
30 FOR TI = 10100 TO 50900 STEP 衬 
ioo 


40S= 和 十 工 
so IF INT (SG/ 13)《“《 >.S /13 THEN 


79 
oo PRINT S 
70 NEXT II 
8O0 END 
DRUN 


2020S 
为 了 能 在 PC-1500 机 上 得 到 本 题 的 答案 ， 可 作 如 下 长 
动 ， 见 程序 Na41， 
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1D:REMN NO.41 

283:A=388883 

38:FOP i=lT 9 

4D;S= 人 有 +]189BB+ 1 本 
1C8 

5D: IF S/《13=INT (S 
/137)THEN 
LPRINT S 

68:NEXT 】 

78: SEND 

88: END 3289285 


2.， 尽量 娃 开 乘 方 运算 


例如 ， 已 知 四 位 数字 的 数 3025 有 一 个 特殊 性 质 : 它 的 : 
前 两 位 数字 (30) 和 后 两 位 数字 (25) 的 和 的 平方 就 是 该 数 本 身 
〈(30+25) = 3025)。 试 列 出 有 具有 这 种 性 质 的 所 有 4 位 数字 的 : 
数 〈1986 年 四 川 省 青少年 计算 机 程序 设计 竞赛 高 中 组 第 五 


如 ) 。 1D:REM NO0.42 

2B:FOR N=1D9pTO 9 
999 

3238:f=INT (CN71DD) 

48:L=N-19B#F 

59: IF CF:+LA2C3N 
THEN 27B 

69:LPRINT Ni "3yF 
+L 

2ID:NEXT N 

8B: END 


从 程序 的 正确 性 和 语法 规则 来 看 ， 程 序 邮 42 是 无 可 指 - 
焉 的 。 但 它 在 PC-1500 机 上 运行 了 16 分 30 秒 , 无 任何 结 
果 。 在 紫金 -TL 上 运行 10 分 钟 左右 ， 最 后 以 提示 符 ] 告终 。 
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可 多 丙 种 机 种 均 不 执行 本 题 的 乘 方 运算 。 

错误 在 50 名 的 胀 方 上 ， 原 因 同 前 所 述 。 这 样 ， 本 题 中 
50 名 (FE+IL)A25 >N 永远 成 立 而 转向 70 句 ， 故 本 题 以 提 
示 符 告终 而 无 结果 。 

为 了 得 到 正确 结果 ， 只 要 将 乘 寡 运 算 改 成 违 乘 即 可 ， 

50 IFCORF+L)*(P+L) 2N THEN 70 

运行 结果 为 : 


20295 45 
3023 53 
9801 99 


5. 作 适 当 的 精度 调整 

前 面谈 到 的 求 水 仙 花 问题 ， 除 了 将 乘 方 改 成 连 乘 可 以 有 
解 外 ， 还 可 以 用 下 述 程序 Ne43 处 理 ， 

和 拱 区 全 生 及 蕊 

2 人 FORTIT = OQ TQ 3939 

XINT (TIT AQOQO) 

4Y= ITNT CI 一 XXXH Oo 7/ 10) 

SOQOZ>=I 一 XXX IOQ 一 耻 攻 四 9 


6 IFPFIQO 2 TITNT ICX ~ 本 4+4Y~ 
4 2Z 人 本 + DSS) THEN SG 

70 PRINT XyYyZz 

BO NEXT I 

20 END 

LURUN 

了 晤 相 ] 

本 7 

到 7 玉 

丰 〇 7 


TI 


由 此 可 见 ， 不 是 微机 都 不 可 以 做 乘 方 ， 只 是 机 芳 虑 机 器 
的 情 度 ， 作 必要 的 处 理 ， 本 例 中 采用 多 加 0.5 的 方法 。 


4. 如 何 处 理 小 数 步 长 


有 的 机 器 没有 处 理 小 数 步 长 的 功能 ， 例 如 PC-1500， 因 
而 程序 No.44 无 法 运行 ， 
5:REM NO0.44 
1D:FOR I=1T0 16 
STEP 5.5 
2B:LPRINT 工 ; 
38:NEXT 1 
4dDINEXT 
解决 此 问题 的 方法 有 多 种 ， 今 给 出 两 种 解法 。 程 序 主要 
思路 是 成 比例 地 扩大 循环 变量 的 初 值 、 终 值 和 步 长 ， 然 后 在 
椭 环 体 中 再 缩小 相应 的 倍数 ，。 
中 1B:FOR. I=10TO 19B 
STEP 5 


28:LPRINT I“z10; 
3D:NEXT 1 
40:END 
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18:FOR 1>bTO 19 


282T=14B.。S] 
30:LPRINT T; 
4D:NEXT 1 
58:END 


第 一 种 解法 比 


多 陪 单 ， 


第 二 种 和 解法 比较 巧妙 。 


5. 屏幕 抄写 的 方法 

当 程 序 较 大 时 ， 输 入 程序 花费 的 时 间 较 长 ， 但 是 有 些 请 
和 彼此 基本 相同 ， 如 采用 屏幕 抄写 的 方法 ， 可 使 工作 量 大 套 
减轻 ， 并 加 快 程序 的 输入 速 庶 。 

例如 要 打 入 如 下 程序 ， 


19 FOR I=1 TO 


LEN (人 蔬 ) 8 且 币 =MID 囊 (从 贞 ， T， 2)》 


20 E=ASC(B$) +AIIF E > 255 THEN E=E~253 
-ON 种 =N 和 +CHR 蔬 4(E) SNEXT 工 


8B0 FOR I=1 TO 


] 
LEN《A 华 ) 3 且 事 =MTD 囊 (台布 ， TI 1)》 


3930 乓 =ASC《B 囊 ) ~ 人 IF 下 “OO THEN 巨 = 已 与 与 


也 O 


人 各 = 人 N 囊 十 到 愉 囊 (E) NEXT 工 
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在 程序 中 第 10、80 名 以 及 第 30、100 句 全 部 相同 ， 此 . 
财 不 用 每 句 都 同样 打 一 遍 ， 可 以 先 键入 第 10 句 ， 然 后 将 光 
标 移 到 第 10 句 的 行 号 处 ， 将 行 号 改 成 80 后 再 将 光标 移 至 本 
行 的 程序 尾 ， 回 车 即 可 。 这 样 第 10 句 和 第 80 句 同 时 存在 。 
30 句 和 100 句 按 同样 方法 处 理 。 

20 各 和 90 名 基本 相同 ， 可 先 键 入 20 句 ， 然 后 将 光标 
移 至 第 20 名 的 行 号 处 ， 改 成 90， 再 将 光标 移 至 “+ ?下 面 ， 
族 成 《- ”5 移 至 “>>” 下 面 ， 改 成 《< 了 移 醒 “2552 
处 , 改 成 “0”， 最 后 再 移 至 也 后 面 的 “《- ”处 , 改 成 “+?”， 
“~” 移 至 程序 尾 ， 回 车 即 可 。 

上 上述 方法 对 于 有 大 量 相同 字符 ， 特 别 是 有 相同 汉字 的 语 
贸 来 讨 ， 效 果 极 为 明显 。 


6. 程序 编辑 举例 

提高 键盘 输入 效率 ， 增 强 程序 删除 、 修 改 、 增 补 、 插 入 
的 能 力 ， 是 加 快 调试 速度 ， 节 省 机 时 的 重要 手段 。 

由 于 程序 编辑 的 指令 较 多 ， 涉 及 的 内 容 也 广泛 ， 本 节 不 
想 全 面 阔 述 ， 仅 就 初学 者 感到 不 太 熟 悉 ， 比 较 麻 烦 的 操作 ， 
举 一 、 二 个 实例 。 

(1) 程序 的 册 除 ”初学 者 对 清除 某 一 程序 行 ， 通 常 是 键 
人 该 行 号 ， 按 回 车 完成 。 若 删除 多 个 程序 行 ， 用 此 法 就 显得 
过 于 人 烦琐 ， 应 改 用 DEL 命令 。 

如 DEL 90，400 

则 可 删除 50 行 至 400 行 的 全 部 语句 行 ， 加 忆 了 删除 的 
速 底 。 

若 删 除 磁盘 中 的 文件 , 则 用 DELETE 命令 。 如 DELETE. 
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'START.。， 四 将 文件 名 为 START 的 文件 取消 ， 从 而 空 出 比 
二 有 的 磁 区 ， 用 来 存放 浙 的 文件 。 

(2) 字符 的 插入 对 APPLE-I 型 机 及 兼容 型 紫金 -下 
机 ， 都 不 能 将 原来 一 串 宝 符 从 中 推 开 型 腾 出 空位 让 其 他 字符 
插入 ,因而 在 语句 行 中 插入 字符 的 操作 比较 麻烦 ,这 里 仅 举 一 
便 说 明 插 和 人 过 程 。 

份 如 ， 有 一 话 名 行 

10 PRINT “THIS IS A STRING CONVERSION 
PROGRAMY 

现 要 求 在 10 句 PRINT 的 后 面 ， 插 入 TAB(5)， 插 入 抬 
作 步 又 如 下 ; 

四 按 ESC 键 ， 进 入 编辑 

国 “用工 键 ，| 了 键 把 光标 移动 到 上 述 语 名 的 最 左 过 
字符 ; 

国 用人 | 键 将 光标 右 移 到 要 插入 地 方 〈 此 时 屏 医 上 显 
示 为 ， 

10 PRINT | “| THIS JIS A STARING CON- 
VERSION PROGRAM7”) 


[RETURN]， 退 出 编辑 ， 键 和 人 TAB(5) 
(现在 屏幕 显示 为 ， 
TAB(5); 史 
10 PRINT THIS JIS A STARING CONVER- 
:SION PROGRAM27 ) 3 
回 按 ESC| M 键 ,把 光标 下 移 一 行 , 移 到 10 语句 上 5 
再 用 J 键 将 光标 左 移 到 第 一 双 引 号 处 ， 从 这 里 天 
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始 ， 再 用 [ 王 | 键 ， 将 光标 移 到 语句 的 最 后 ， 按 |RETURN | 键 
退出 编辑 ; 

@ 键入 LIST _ 10， 检查， 如果 你 希望 能 避免 多 余 航 
空白 ， 用 [ESC| |A 键 会 将 显示 点 向 右 移 ， 但 不 超 字 元 。 


7. 执行 过 程 的 自动 跟踪 

程序 设计 往往 不 会 一 次 成 功 ， 错 误 难 免 。 在 调试 程序 、 
检查 错误 的 过 程 中 ， 当 常 希 望 知道 程序 是 否 按 我 们 设计 的 要 : 
求 明 序 执行 ， 以 便 跟 踪 程 序 的 执行 过 程 进行 检查 ， 从 而 加 速 
秆 错 的 速度 ,这 就 要 用 TRACE 语句 (IBM-PC 机 用 TRON)。 

它 的 功能 是 指 在 程序 执行 过 程 中 ， 每 执行 一 步 都 把 与 之 
相关 的 语句 行 号 列 出 来 。 

在 调试 程序 前 ， 先 键入 跟踪 命令 TRACE， 然 后 再 执行 
RUN 命令 。 解 除 跟 踪 的 语句 是 NOTRACE， 例 如 ， 

把 100( 含 100) 以 内 的 所 有 被 7 整除 或 被 5 整除 的 正 整 
数 一 一 打印 出 来 。 

有 人 编写 程序 45， 


二 REM NO:45 
10 FOR N = 1 TO 100 


20 IF _ INT IN/ /SI >NV/ SS AND 
有 7) >NV/7T THEN 

SO PRINT NS 2 

49 NEXT Ni 

50 PRINT 

cq END 


RUN</ 后 ,什么 结果 也 没有 。 可 见 这 个 程序 是 有 错误 的 。 
为 了 检查 上 述 程序 错误 的 原因 ， 键 和 人 TRACE， 再 运行 。 
结果 ， 
DRUN7O 


TRACE 
#5 林 19 #20 提 10 #20 #19 。。。。 


说 明 程 序 进 入 死 循 环 ， 永 远 得 不 到 答案 ， 若 在 上 述 程序 
迄 45 中 加 上 一 句 : 
15 PRINT 
程序 会 没完 疫 了 地 打印 出 1。 
DRUN 
1 


注意 ， 在 程序 的 适当 位 置 ,安排 打印 语句 , 判断 结果 的 正 
殊 与 芳 ， 也 是 调试 程序 常用 的 方法 。 

总 之 ， 利 用 跟踪 语句 ， 可 以 迅速 发 现 错误 原因 ， 事实 
上 ， 上 述 错 误 是 程序 设计 不 允许 的 。 请 看 :第 一 次 进入 循环 
体 时 ，N 为 1， 它 既 不 能 为 5 整除 ， 又 不 能 被 7 整除 ， 因 而 
转 回 10 行 。 第 二 次 进入 循环 ，N 仍 为 1， 经 20 句 又 返 回 ， 
如 此 往复 ， 以 至 无 穷 ， 所 以 得 不 到 结果 。 正 确 程序 设计 和 结 
果 ， 见 程序 Nn46: 

ULIST 


5 REM NO.46 
10 FORN = 1 TO 100 


20 IF INT (IN/S5“ >NV/S AND 
INT (NV7V7) >N77 THEN 
40 
SO PRINT NJ "23 
40 NEXT RN 


5o END 117 


571410144145 20 21 23 


2 DO 5 40 42 45 49 


75 77 80 84 85 90 91l 
955 38 100 
8.， 输入 数据 的 跟踪 检查 
用 INPUT 语句 大 量 输入 数据 时 ， 常 常 由 于 数据 量 大 ， 
和 针 间 长 ， 操 作 失 误 是 很 难 避 免 的 ， 输 入 的 数据 由 于 无 法 更 改 
只 好 作废 ， 再 重新 输入 又 会 花费 不 少时 间 ， 同 时 也 很 难保 证 
不 再 出 错 。 
如 果 在 输入 数据 的 过 程 中 ， 随 时 可 以 跟踪 检查 ， 则 可 以 
节省 不 少 工作 量 。 
程序 47 可 以 帮助 解决 上 述 困 难 。 


DLLIST 


S REM NOQ.47 

1 N = 105 DIM RN).: FOR TI = 1 TO 
N 

20 PRINT IT， INPUT A 币 :BE 币 二 蕊 EFT 过 
《Ag 1)。 IF B 和 中 = "AGOR B$ = 
MTHEN 6 和 = A++ "nsY = -SGN 
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( ASC (B$) ~ 66)2T ma = VA 
( MID 事 〈 人 及 蔬 ,2) 》 基 YITIT TI 十 下 
~ 人 (人 TOHYII = (TI > N) 共 
N+Ixi+(I1 ”=N ANDR 
IT > = 4# Is GOTD:20 
SO RII)》 = VANL (A 币 )。 NEXT 工 
40 FOR I = 1 TO N PRINT RCI)32” 
4 NEXT 工 
如 果 输入 过 程 中 出 错 ， 可 以 用 M 或 A 后 面 跟 一 个 数字 
来 修改 错误 。 例 如 在 第 五 次 发 现 第 三 次 数据 有 错 ， 则 键入 
M2 (表示 退 二 个 序号 ) ， 屏 上 立即 出 现 第 三 次 的 序号 ， 此 
时 键入 更 改 的 数据 。 而 用 A 后 面 带 一 个 数字 ， 则 表示 而 进 
几 个 序号 ， 下 面 是 一 组 实例 。 
DRUN 
人 2 人 
宁 写 
了 7 
他 本 了 
他 济公 
?44 
人 7 中 
?90 
全 7 全 


or 
3 


?221 
399 

志 M3 

?65 

3 

?89 

10 ?36 

12 54 44 79 80 74 65 21 89 30 
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3 上 昌国 玉昌 有 


加 mV 


9. 几 个 常用 技术 

(1) 暂停 技术 “为 了 调试 的 需要 ， 有 时 要 让 程序 运行 到 
某 一 语句 后 暂停 下 来 ， 这 可 以 在 运行 前 事先 插入 一 些 STOP 
语句 。 这 样 程序 运行 到 该 语句 时 会 自动 停 下 来 。 用 这 种 方法 
特别 适用 大 型 程序 的 调试 ， 因 为 大 型 程序 经 常 采 胃 模 块 化 结 
构 ， 每 个 模块 分 别 完成 某 种 功能 ， 用 STOP 语句 放 在 适当 
的 模块 后 的 相应 位 置 ， 可 以 逐一 检查 每 个 模块 功能 的 正确 
性 ， 待 全 部 调试 完成 后 ， 再 删 去 所 有 STOP 语句 。 

(2) 插入 查 错 技术 “在 程序 中 插入 一 些 专门 用 以 检查 和 
提示 的 语句 ， 以 判断 计算 结果 的 正确 性 ， 数 据 存 贮 的 正 误 ， 
程序 的 流向 以 及 执行 过 程 。 这 种 技术 还 适用 于 检查 某 一 循环 
是 否 被 执行 ， 某 一 分 支 是 否 正确 转移 等 等 。 

插入 语句 可 以 是 显示 语句 、 打 印 语句 或 者 用 音响 提示 语 
句 。 

例如 ; 

80 ON X GOSUB 400，600 

如 果 在 400，600 这 些 子 程序 中 ， 没 有 明显 的 对 屏幕 显 
示 信 息 ， 没 有 标志 或 提示 ， 这 样 就 不 知道 程序 的 确切 流向 。 
插入 PRINT 语句 ， 就 能 了 解 整个 程序 流向 和 执行 过 程 。 

例如 :78 PRINT N 

全 口 1 PRINT ”NETER， 4 
601 PRINT "ENTER 600" 

又 如 可 久 从 键盘 上 直接 输入 有 关 语句 ， 检 查 数组 存 此 情 

况 ， 革 个 计算 结果 是 否 正确 等 。 
PRINT N(7) 
户 RINT 人 台 十 也 
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屏幕 上 立即 显示 N(7) 中 的 存 贮 情况 和 表达 式 A+B 的 
结果 。 当 然 这 种 方法 适用 于 静态 调试 ， 即 输入 程序 后 ， 没 有 
运行 程序 前 ， 相 应 的 上 面 提 到 的 方法 就 是 指 动态 调试 了 。 

显然 ， 上 述 两 种 方法 ， 对 一 些 程序 较 大 ， 运 行 时 间 较 长 
的 系统 来 说 ， 播 入 技术 是 行 之 有 效 的 方法 。 

(3) 限制 技术 对 于 一 些 一 时 无 法 迅速 排除 错误 的 程序 
来 说 ， 为 了 使 调试 工作 继续 进行 下 去 ， 可 采用 限制 技术 ， 方 
法 除了 用 ERROR 语句 外 ， 还 可 以 增加 一 些 限制 条 件 和 范围 
的 语句 。 

例如 ， 


109 X=Y7/UN _ 
11O IF X > = 47 下 HE 和 六 汉人 


运行 中 如 果 多 = 0， 则 出 错 ， 程 序 被 奶 停 下 来 。 为 保 证 
让 程序 先 通 过 这 一 句 ， 可 加 一 条 限制 ， 

99 IF W=0 THEN 500 

这 样 此 段 程 序 就 可 顺利 通过 ， 至 于 500 名 的 内 容 ， 视 程 
序 的 要 求 去 写 。 

(4) 循环 延迟 技术 ”对 图 象 显示 ， 有 时 我 们 希望 看 得 清 
楚 些 ,不 希望 一 幅 图 象 还 没有 停留 一 段 时 间 , 另 一 幅 图 象 随即 
接 题 而 来 ， 这 时 可 以 用 延迟 技术 ， 方 法 比较 简单 ， 在 显示 两 
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幅 图 象 之 间 程 序 段 ， 加 入 

〈 行 号 》 FOR KK=1 TO 1000:NEXT 玫 

终 值 的 大 小 决定 了 延迟 时 间 的 长 得 ， 可 由 程序 自行 调 
整 。 

(5) 强制 技术 是 指 将 特定 的 数值 人 为 地 输入 程序 中 ， 
强制 程序 按 预定 的 方式 去 运行 ， 以 考察 程序 是 否 产生 预期 的 
结果 。 这 种 方法 常用 来 判断 逻辑 错误 或 算法 错误 。 

例如 ， 

SO ITNPUT :长 囊 

40 IF So 有 sg = ASC (K) AND 80 > 

= ASC (K) THEN 60 

50 GD0TOQ 30 


为 了 检查 第 40 名 逻辑 功能 是 否 正确 ,可 以 给 K$ 送 0,60， 
90 等 数 ， 看 其 是 否 能 分 别 转 到 第 30 句 (经 50 句 ) 、 第 60 
句 、 第 30 句 〈 经 50 句 ) 。 

由 于 上 述 方法 是 带 强制 性 的 ， 人 为 地 指定 程序 的 运行 路 
线 ， 所 以 ， 它 适用 于 全 面 调试 一 个 程序 。 
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八 、BASIC 语音 的 编程 技巧 


程序 设计 是 一 项 技术 性 很 强 而 又 十 分 灵活 的 工作 ， 是 模 
仿 和 创造 的 统一 。 模 仿 是 对 别人 的 程序 设计 进行 学 习 、 研 究 、 
试 算 、 比 较 和 借鉴 的 过 程 ， 而 创造 是 指 在 符合 程序 设计 语言 
规则 的 前 提 下 ， 对 程序 进行 提 练 、 取 精 、 优 化 、 创 新 和 发 挥 
的 过 程 。 

程序 设计 离 不 开 语言 ， 编 程 技巧 离 不 开 语 句 。 而 要 进行 
高 水 平 的 程序 设计 ， 又 归结 于 找到 好 的 解 题 方法 。 这 是 一 个 
包罗 万 象 的 课题 ， 差 不 多 有 上 百 本 书 和 大 量 文章 来 讨论 解 题 
的 最 好 技术 。 这 里 仅 从 语句 和 函数 的 使 用 、 程 序 设 计 思 想 和 
结构 的 安排 上 ， 作 一 些 粗浅 的 介绍 。 


1. 荣 单 技术 


我 们 曾经 指出 模块 化 程序 结构 是 一 种 先进 的 程序 设计 方 
法 。 它 的 主要 思想 是 将 一 个 大 的 程序 划分 为 若干 功能 模块 ， 
并 供用 户 选 择 ， 但 是 究 竞选 用 哪 一 个 功能 ， 完 全 由 操作 者 自 
定 。 因 此 设计 一 个 选择 程序 ， 供 操作 者 使 用 ， 就 显得 十 分 必 
要 。 方 法 是 在 程序 开始 ， 计 算 机 自动 显示 出 各 功能 名 称 ， 用 
户 根据 需要 键入 希望 完成 的 功能 号 ， 则 程序 立即 转 和 相应 的 
模块 ， 由 于 这 种 方法 酷似 餐馆 中 的 点 菜 方式 ， 故 称 “ 菜 单 2 
技术 。 

下 面 是 一 个 程序 实例 〈 见 程序 Ne48) ， 采 用 多 择 一 结 
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构 : 


5 REM ND. 48 


1 


说 明 ， 


REM CATALOG 
PRINT "1。ADD A RECORD" 
FRINT “" 冯 2。 DELETE 有 RECORD" 
PRINT “本 。 CHANGE A RECORD" 
PRINT "4。 MERBGN A RECBORD" 
PRINT "与 。 SORT RECORDS" 
PRINT "6。 SEARCHING RECORDS" 
PRINT ”7。DISPLAY AS RECORD" 
PRINT “ 旨 。LIST THE FTILE" 
PRINT 

INRUT 长 币 

IF KK 向 = 0” THEN END 
MO 三 MAL (上 长 囊 ) 

IF MO2 dt OR MO > THEN 110 


ON MO 60SUB 200,400,600，800， 
1000， 1200。 1400， 1600 
GOTO 110 


程序 一 经 运行 ， 立 即 显示 各 功能 项 ， 


DRUN 

1。ADD A _ RECORD 

局 。 DELETE 会 RECORD 
马 。 CHANBGE 和 RECORD 
4。 MERGN A RECGRD 

三 ， SORT RECORDS 

4 和。 SEARCEHING RECDRDS 
7。TDISPFLAY 上 RECORD 
日 。，LIST THE FILE 


INPUT KK 是 等 待 用 户 啊 应 ， 由 操作 者 输入 希望 完成 
鸭 功 能 代号 ， 在 1 到 8 之 间 。 

140 句 是 防止 程序 乱 跑 (BOMB PROOFING )。 上 述 8 种 
功能 是 用 1 到 8 这 八 个 数字 来 啊 应 的 ， 若 使 用 者 可 能 按 错 数 
他 刍 ， 则 程序 可 能 会 “爆炸 ?”， 所 以 安排 了 “防爆 ”措施 。 
增加 了 是 否 在 1 到 8 以 内 的 盎 辑 检查 ， 如 出 错 ， 日 动 返回 重 
新 输入 。 它 并 不 是 文件 管理 上 旭 出 的 要 求 ， 但 是 它 属 于 提高 
程序 质量 的 范 咱 。 

150 句 是 程序 在 分 析 用 户 要 求 后 ， 所 作 的 分 支 处 理 ， 显 
然 用 开关 控制 语 甸 ONVGOSUB 最 为 合适 。 而 150 名 后 面 的 
行 号 ， 是 上 上 述 程序 中 相应 8 个 功能 模 快 的 入 口 地 址 。 每 一 独 
立 的 程序 段 ， 分 别 完 成 注释 中 的 每 种 功能 〈8 个 模 瑞 功能 段 
此 处 从 略 ， 请 不 要 忘记 每 段 结 尾 处 应 有 RETURN) 。 


2. 人 机 对 话 方式 

人 机 对 话 是 计算 机 的 重要 功能 ， 又 是 BASIC 知 言 的 一 
个 显著 特点 。 利 用 键盘 进行 人 机 对 话 ， 可 以 辅助 教学 工作 ， 
进行 电化 演示 ， 既 省 力 又 答 上 时， 直观 教学 效果 也 好 ， 旦 益 受 
到 普 志 的 欢迎 ， 如 有 程序 No49: 

LIST 


瑟 REM NO.49 

10 “FRINT_ "HELLO LET US LEARN AR 
ITHMETIC” 

2098= 4 

3S0 FOR I= 1 TO 19 

408= INT (OO 关 RND (1)) 

s0B= INT (10 基 RND (1)) 
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49 PRINT "Nos"3I 

70 PRINT A" 共 "3BS = 
8B0 INFUT 

85 PRINT C 


30 ITFC7 >》ANH# BTHEN 110 
100S=S+ 10 
110 NEXT TI 


120 PRINT "YOUR SCORE I52"3S 
1350 IF 和 > 二 30 THEN PRINT 
RY GODD 1! 


1409 PRINT "TI HOPE YOU NILL SUCCE 


ED 外 


15Q PRINT “DO YOU WANT TQ CUNTIN 


UE (YES DR NO)3” 
469 INPUT  “X 事 =" X 争 
179 JIF X 叫 一“Y"” THEN 20 
18D PRINT "SEE YOU LATER 
1909 END 


刀 RUN 
HELLO LET US LEARN ARITHMETIC 
Ne 

丸 共 本 7 一 了 222 号 
228 

NoD3 2 

与 其 吕 本 荆 宁 4 二 
人 1 总 

NDs 

姑 # 瑟 7 ?4 避 
号 号 恕 

MD 4 

六 头号 7 天 了 人 7 
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马 7 
NG 
工 基 7 名 一 ?7 全 


NO8 7 

7 关 27 二 ?1 G9 

1693 

Ne 名 

工 攻 与 名 一 了 生 

号 瑟 

Nei9 

全 其 吕 1 了 全 人 

192 

Neoaz oO 

加 攻 本 = 了? 并 

要 | 

YOUHR SCORE IS27O 

I HOPE YOU WILL SUCCEED 
DO YOU NANT TO CUNTINUE (YES OR N8) > 
X 事 = 全 

SEE YOU LATER 


关于 上 述 程序 ， 不 再 一 一 说 明了 ， 请 初学 的 读者 耐心 地 
一 步 一 步 地 看 懂 它 。 简 单 地 说 是 这 样 的 ， 计 算 机 随机 地 出 1 
位 整数 和 2 位 整数 相 乘 的 10 个 题目 ， 请 您 回答， 对 一 条 自 
动 加 10 分 ， 不 对 不 加 分 ， 最 后 给 出 你 的 成 绩 ， 如 果 你 的 成 
绩 在 20 分 以 上 ， 则 给 你 一 个 好 评语 (VERY GOODI! )， 
符 则 机 器 打印 出 ，I HOPE YOU WILL SUCCEED (希望 
你 成 功 )》 的 信息 。 并 询问 你 是 否 再 做 试题 ， 如 你 从 键盘 键 
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入 Y(Yes)， 则 再 重复 上 述 过 程 ， 反 之 ， 若 你 键入 除 丫 这 个 
字 深 以 外 的 任何 字符 ， 则 计算 机 打印 出 ， SEE YOU LA- 
TER 〈 下 回 见 ) 的 信息 。 简 单 地 说 这 个 程序 是 ， 计 算 机 自动 
出 机 并 判 分 。 

读者 可 以 仿照 上 述 程序 的 模式 ， 自 己 来 编制 一 些 不 同 内 
容 的 教学 程序 ， 比 如 说 四 则 运算 、 三 角 函 数学 习 、 收 音 机 调 
臣 、 外 语 教学 等 等 。 

5. 巧 用 符号 画 数 SGN(X) 

对 于 统计 一 列 数字 中 正 数 、 负 数 及 零 的 个 数 问题 ， 常 用 
的 方法 是 用 条 件 语 名 来 判断 ，GOTO 语句 来 循环 ， 见 程序 . 
No50， 


5S:REM ND.S58 

73CLEAR 

1B8:RERAD X 

2B: IF X=999THEN 5 
8 

3p: IF YX?>9LET R3=R 
3+1:60TO 19 

4D8; IF X=BLET R2=R 
2+17;60TO 1 多 

SB8:RI1I=RI+1L1:IGCGOTO ! 


乌 

6823LPRINT R1JIR2IR 
3 

78:DATS 拯 人 -3， B， 4)， 
-5; 9, 0, -6); 3) 四 
999 


325 
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急用 符号 国 数 SGN(X) 能 决定 X 符 号 的 特点 ， 容 易 写 出 
程序 51。R(3)、R(2)、R(D) 记 录 正 数 、 零 和 负数 的 个 数 ， 
E 为 数值 X 的 符号 男 数 值 。 用 Er+ 2 作为 统计 数 X 的 正 、 负 或 
零 的 数 R 的 下 标 。 程 序 的 主要 特点 是 省 去 了 所 有 的 条 件 判 断 
和 GOTO 循环 ， 巧 妙 地 运用 了 数组 存 贮 ， 见 程序 No51: 


5S; 
10: 


28: 
4D : 
DD : 
6D ， 


7D: 
8D， 


90: 


REM NO, S51 
CLEAR ;DIM R(3 
》 


FOR I=1TO 16 
REGD X 

F=SCN 〈《Xy) 
RE+27=RCE+Z22+ 
1 

NEXT II 

LPRINT RC1L)IR( 
27jR(C3) 

DAT 2， 3， 0， 4， 
一 5， 8， B， 一 3， 6 7 


325 
实际 上 SGN(X) 国 数 形式 虽然 简单 ， 功 能 却 很 特殊 ， 它 - 
的 应 用 方法 和 技巧 很 多 ， 现 再 举 几 种 用 法 如 下 。 
中 ”代替 巡 辑 运算 


设 A，B 为 妈 辑 变 有 时， 


它们 的 取 值 不 是 0， 就 是 1， 那 


么 A OR B， 可 以 用 SGN(A+B) 来 代替 。 
@ 代 夫 多 个 分 支 语句 
例如 ，40 IF X>0 THEN 100 
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50 JEF X=0 THEN 150 
60 JIF X<0 THEN 200 
40 ON SGNCX)+2 GOTO 200，150，100 
图 变 复合 条 件 为 简单 条 件 
例如 ，A>B 且 B>C 化 为 
SGN(A -B)+SGNCB-C)=2 
， 求 两 数 的 大 者 或 小 者 
例如 ， 从 刍 庶 和 输入 A，B 两 数 ， 变 求 把 大 数 放 在 


也 中 ， 

小 数 放 在 工 中 ， 一 般 采 用 比较 和 交换 的 方法 再 转移 ， 见 程序 
52， 也 可 用 赋值 方法 直接 求 得 ， 如 程序 No53 
109:REM NO0.52 16:REM NO .53 
2B8: INPUT 白 ,B 2B: LINPUT 多 B 
马 与 LPRINT 业 全 日 关 必 > 25:LPFRINT 和 B=”; 

人 相生 二。 全 
3D: TIF >BLET H=A: 3B:H=(A+B)A2+SBN 

L=B':G0OTO SB 〈 台 -B ) 水 《和 一 已 2Z2 
40:H=B:L=A 40:L=(CA+B>Z2-S6N 


SB9:LPRINT Hi” ”kk 


6 B= 125 397 


397 125 6 B= 62 97 
97 :62 

台 ， B= 24 -6 

24 -6 6 B= 51 -372 
3 


4.， 巧 用 远 辑 表达 式 


有 四 个 数 4，B，C， 呈 ,已 知 4>B，3B>C，C>DD， 从 
面 作出 4 是 最 大 值 这 个 还 辑 判断 时 ， 只 要 写 出 一 行 语 句 即 
可 : 
10 IF A>B AND B>C AND C>D THEN 
PRINT “MAXIMUM VALUE IS，”; A 
因此 ， 用 巡 辑 表达 式 写 出 来 的 程序 行 或 疏 ， 条 理 浅 楚 ， 
结构 合理 ， 层 次 分 明 ， 清 晰 易 懂 。 
下 面 是 一 个 较 复 杂 一 点 的 例子 。 有 6 位 同学 ， 他 们 姓 : 
名 、 性 别 〈 男 生 为 戏 ， 女 生 为 F) 、 年 齿 (了 )、 身 长 (并 )、 
体重 ( 矿 ) 的 数据 均 已 放 在 DATA 语句 中 ， 试 把 符合 下 述 盾 - 
有 条 件 的 学 生 找 出 来 ， 
。 是 男生 ; 
。 年 龄 在 18 一 20 央 之 间 ; 
。 身 长 在 175 一 180cm 之 间 ， 
。 体 重 在 60 一 70kg 之 间 。 
哩 序 m54 可 以 这 样 编制 ， 
S:REM NO.54 
19:C$="0M 
2D:FOR 1I1=1TO 6 
30:READ 牛 $，B$， YL 
， 区 
4D: IF B$=C$AND Y> 
=18AND Y=28B 
AND LX=125AND 
L《=18BAND JWN7>=6 
GAND. W=72B8THEN 
LEPRINT 委 $ 
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8B8: 


9D : 


避 与 


L1 
本 
ES 


象 这 种 从 若干 个 

“查找 "， 又 称 * 检 索 " 
关于 这 个 程序 ， 

及 ， 上 而 程序 中 的 第 


R$iY 
: NEXT 
:FND 

:DATA "BRBQIL YUN7 
MG 28761 
并 风 昌 FF 
18,，1725，63 

DT 和 "“HD JH 
FF ， 2D，18D0), 6D) 
LI HUO"“M” 21 
，185，7B 

DATA "LI MING” 
2M2 19，17 六 3 
DOQT "LI HUA 一 
"M" 18，126)， 66 


:L JW 


MING ML49”1277 .6 


HUA NM 18 126 66 

数据 中 寻找 所 需要 信息 的 方法 叫做 
， 它 是 数据 处 理 中 一 项 最 基本 的 工作 。 

我 们 不 想 过 多 的 说 明 ， 但 有 一 点 必须 提 
40 行 ， 相 当 于 下 列 程序 段 ， 


40 IF B 和 《 > Cj THEN 59 
41 IF Y“ 18 THEN 5sO 

42 IF Y > 20 THEN 50 

435 IF L “< 1475 THEN 50 

44 IF L > 180 THEN 50 

45 IF W 2: 60 THEN SO 

46 IF JW > 70 THEN 5SQ 

47 LPRINT 向; B 机 ;YI L3 MW 
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可 见 一 条 逻辑 表达 式 代 灰 了 多 个 条 件 语 句 ， 从 而 节省 了 了 
内 存 空间 和 执行 时 间 。 

对 于 判别 条 件 同 时 依赖 于 多 种 关系 时 ， 我 们 的 结论 是 : 
尽量 采用 逻辑 表达 式 ， 以 利 程序 的 简化 。 

5.， 循环 体 中 制 断 语句 的 巧 安排 

减少 无 用 循环 和 避免 重复 计算 ， 是 提高 循环 程序 质量 的 
最 主要 方法 ， 其 措施 之 一 是 及 时 与 有 效 地 安排 判断 控制 话 
句 ， 以 便 迅 速 脱离 无 效 循环 ， 加 快 程序 运行 速度 。 

为 奖励 计算 机 程序 设计 优胜 者 ， 共 买 了 四 种 奖品 ， 分 别 
奖 给 一 、 二 、 三 等 奖 和 鼓励 奖 获得 者 奖品 金额 分 别 为 
1.39 元 、1.04 元 、0.83 元 和 0.59 元 ， 总 共 花 去 12 元 。 已 
知 奖励 等 级 越 高 ， 得 奖 人 数 越 少 ， 试 问 不 同等 级 得 奖 人 数 各 
是 几 个 ? 

解 ， 这 是 一 个 特殊 的 不 定 方程 求解 问题 。 设 不 同等 级 得 
奖 的 人 数 为 4，B，C， 厂 ， 据 题 意 : 

1394+ 104B+83C+59D = 1200 《1》 
4 和 3B< 和 C 委 了 
分 析 题 意 ， 

由 于 每 个 得 奖 人 数 至 少 取 1 人 ， 则 当 B=C=D=1 时 ， 
方程 人 4> 变 为 1394= 1200- 104-83-59， 解 之 4x?.16， 
又 因 人 数 应 为 正 整数 ， 故 4 取 7， 同 理 38 取 8，C 取 12， 靖 
取 14。 

故 有 程序 No55， 
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忆 REM NB.55 


1 FOR A= 1 TO 7 
20 FOR B=ATO 旨 
30O FOR C = B TO 12 
40 D= (1200-193XA 一 LO4# 有 一 日 3XC) /59 
30 IF DB<C AND Di1 AND DC>INT(D) THEN-70 
Go LPRINT ABC3D 
70 NEXT C 
BO NEXT 了 
30 NEXT 用 
100 END 
RUN 
2 


即 停 
钟 才 
只 有 


00， 


得 到 
机 。 
欧 工 


上 述 程序 最 大 的 一 个 缺点 是 ， 在 打印 出 结果 后 并 没有 立 
上 正 ， 而 是 继续 进行 毫 无 总 义 的 循环 ， 一 直到 又 经 过 32 秒 
停机 〈 机 种 PC-1500) ， 原 因 是 程序 中 忽略 了 得 奖 人 数 
且 仅 有 一 组 解 ， 因 此 ， 没 有 在 得 出 正确 结果 后 ， 及 时 跳 
环 并 停机 。 

明确 上 述 事实 ，60 句 可 改 为 : 

LPRINT Ai “7 B “， 2” CI “，”5 D: 

END 并 删 去 100 句 。 

这 样 ， 原 程序 执行 速度 加 快 32 秒 。 

总 之 ， 在 已 知 实际 问题 只 有 一 种 〈 或 一 组 ) 解答 时 ， 当 
满意 的 解答 后 ， 应 有 效 地 安排 控制 转向 语句， 立即 停 
这 样 做 ， 极 大 地 缩短 了 循环 的 范围 ， 避 免 了 大 量 无 意义 
作 ， 是 提高 速度 的 有 效 方法 。 

6. 多 用 途 的 INT(X) 丁 数 

取 整 国 数 INT(X)， 是 把 数值 和 X 取 整 ， 自 动 给 出 一 个 而 
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大 于 和 的 最 大 整数 。 定 义 简 单 ， 但 应 用 技巧 很 强 。 现 一 一 
列举 如 下 : 

〈1) 对 一 个 数 取 整数 部 份 ” 例 如， 

INT(17.34) 其 值 为 17 
INT(-8.55) 其 值 为 -9 

对 取 整 国 数 ， 不 能 简单 地 理解 “和 截 去 小 数 部 份 ”。 这 种 
说 法 在 X 值 为 正 数 时 是 正确 的 ,而 在 和 X 为 负 值 时 不 成 立 。 这 . 
一 点 初学 者 常常 弄 错 。 

(2) 对 小 数 部 份 四 售 五 人 

区 >>0 时 ， 按 INT(X+0.5) 处 理 

X<0 时 ， 按 -INT(ABS(X)+0.5) 处 理 

如 和 =12.5， 则 INT(12.5+0.5)= 13 

如 和 = -12.4， 则 -INT(ABS(-12.4)+0.5)= -12 

(3) 保留 或 精确 到 小 数 点 后 第 N 位 
和 >>0 时 :INTCX*1E+N)VXCIE+N) (保留 六 位 ) 

INTCXx*1E+N+0.5)XCIE+N) (精确 位 ) 
X<0 时 :，-INT(ABS(X)*1E+N)VXCIE+N) (保留 N 位 
-INTCABS(X)*1E+N+0.5)/CIE+N) 
(精确 N 位 ) 

注意 ;保留 到 小 数 点 后 第 六 位 与 精确 到 小 数 点 后 第 N 
位 在 概念 上 是 不 同 的 ， 前 者 仅 取 小 数 点 后 第 N 位 ， 不 需 要- 
进行 四 含 五 和 人 处理， 后 者 要 进行 +0.5 处 理 ， 才 能 保证 要 求 
的 精度 。 

(4) 保留 到 整数 部 分 的 某 一 位 ”处 理 方 法 和 保留 到 和 值 
的 小 数 点 后 第 N 位 ， 十 分 类 同 ， 只 要 把 IE+N 改 为 4- 耳 
邯 可 。 
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(5) 判断 整数 X 能 否 被 整数 了 整除 一 般 有 : 若 INT 
《X/Y) =X/Y 成 立 ， 则 X 能 被 了 整除 ， 反 之 若 INT(CX/Y) 
《 7?X/Y， 则 X 不 能 被 整除 。 

如 有 一 组 数 5，9，12，14，5，17，21， 问 能 否 被 3 整 
除 ， 见 程序 No56， 


ULIST 


与 REM NO.56 
10 FOR I>=1 TO7: READ xs IF X 7/ 
本 = INT (X /SS THEN PRINT 


X 

15 NEXT 1I 

20 DATA 5,9,12,14，15,17,21 
30 END 

DRUN 

品 

2 

15 

21 


(6) 求 余 数 “ 求 整数 和 除 以 整数 工 的 余数 T， 可 用 ， 
T=X-INTCX/[/Y)*Y 
例如 :， 若 X， 了 均 为 正 整数 ， 求 XXY 的 余数 了 ， 见 程 
疗 No57， 
ULITST 


汪 REM NG. 三 7 

19 INPUT XsY 

15 IFX= -1 ANDY= -1 THEN 
END 
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20T= X- 
25 PRINT T 
350 60TO 10 


(7) 求 整 数 X 是 整数 了 和 了 的 倍数 当 X=INTCXV 
Y)*Y 成 立时 ， 则 和 必 为 了 和 了 的 倍数 。 

例如 ， 求 了 = (1+2+3+4)+(6+7+8+9) 二 十 (96 十 
07+98+99) 


见 程序 Nae58， 
DLIST 


INT (X / Y) # Y 


REM NO.58 

10 Y = 口 

20 FOR IT = 1 TO 39 

3S0 IF _ INT (IT/5) # 瑟 = 工 THEN 


40Y=Y+I 
SO NEXT II 


60 PRINT Y 
70 END 


因原 式 中 没有 5 和 5 的 倍数 ， 所 以 在 程序 中 的 30 句 ， 
安排 一 个 条 件 语 句 ， 跳 过 5 和 5 的 倍数 不 加 。 
当然 ， 本 题 还 有 好 的 解法 ， 时 间 更 短 ; 


ULIST 


10 FOR TI = 10 TO 3590 STEP 203Y = 
Y + TI: NEXT TI: PRINT Y 


(8) 判断 整数 和 的 奇 , 偶 性 若 X/2=INTCX/2)， 则 X 
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为 偶数 ， 车 X/2( INT(CX/2)， 则 和 为 奇数 。 
玉 面 是 一 个 能 同时 判别 数 的 奇 、 偶 性 的 程序 Na59: 
LiLITST 


二 REM NO.。.59 


| 

lO FOR I= 1 TO 10 

29 READ X 

也 心 人 / 呈 = INT (X / 2) THEN 


40 PRINT Xy" IS A DODD NU " 

5o 60T0 70 2 

40 PRINT xz”IS AN EVEN N " 
70 NEXT I ee 
80 DATA 44,27:S1,5,8,0,3,12,9，2 


3 END 


DRUN 

44 TS 人 EVEN _ NUMBER 
27 IS ADDD NUMBER 
St IS A QODD NUMBER 
sSs IS 襄 DDD NUMBER 
8 IS 全 EVEN NUMBER 
O IS 人 EVEN NUMBER 
3 IS A ODD NUMBER 
12 IS AN EVEN NUMBER 
9 IS A ODD NUMBER 
2 IS EVEN NUMBER 


(9) 找 素 数 ”素数 又 称 质数 。 最 易 理 解 的 一 种 方法 是 ， 
把 它 除 以 2 到 (和 -1) 的 每 一 个 整数 ， 若 均 除 不 尽 ， 则 X 必 

例如 ， 求 3 到 52 之 间 的 所 有 素数 ， 见 程序 Nn60: 
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LDLIST 


扫 RENM NO.64O 

140 FOR X 一 马 TO 52 

20 FORITI -27TGX 一 1! 

0 IF INT (XV/VI) 二 XI THEN 
如 

40 NEXT II 

50 PRINT XY” 

OO NEXT X 

79 END 


与 RUN 
SS57dllsSli7492329 31 37 41 4S 47 


(10) 产生 某 一 范围 内 的 随机 整数 ”如 要 产生 4 到 如 之 间 
的 随机 整数 可 用 ， 
INT(RND(1)*(B-A)+A) 
有 关 INT 函 数 的 用 法 和 技巧 ， 就 介绍 到 这 里 。 实 际 上 它 
的 应 用 还 有 不 少 ， 读 者 可 以 在 实际 编程 中 不 断 探 索 。 


7 字符 串 夯 数 的 应 用 技巧 


对 字符 串 的 处 理 ， 可 以 大 大 增强 计算 机 的 非 数值 处 理 的 
功能 ， 而 且 也 可 以 用 字符 串 函 数 来 处 理 数值 计算 问题 。 

下 面 是 几 个 实例 。 

例 1， 求 一 个 四 位 数 ， 要 求 ， 

* 是 一 个 完 金 平方 数 ! 
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. 第 一 、 工 位 数 ， 第 三 、 四 位 两 两 相同 

。 每 一 位 数 是 整数 。 

本 题 的 解法 很 多 ， 传 统 的 方法 都 是 用 数值 计算 、 判 断水 
解 题 ， 这 也 比较 自然 ， 因 为 题 意 要 求 的 就 是 求 一 个 数值 。 而 
我 们 这 里 则 采用 一 种 新 的 解法 ， 首 先 把 数值 变 成 字符 串 ， 然 
后 用 字符 串 图 数 求 处理 ， 程 序 Ne61 及 结果 如 下 ; 

UL 工人 下 
RENM NO.OlL 

1 FOR I= 3 TO 99 STEP 1t1 
NT 工 和 兴工 


30 人 = STR 蔬 (N) 

4 BRp$ = RIGHT 币 (内 囊 ，1 ) 
SO C 员 = MID 全 (有 贞 , 瑟 1) 
GD D 惠 = LEFT 惠 (全 $ 节 1) 
7G E 韦 = MID 惠 (有 和 ,2，1) 


80 ITF BBS = (5C 贞 AND D 店 = ES THEN PRINT 
“N=2 NS 2 25253732 IT: END 
oo NEXT 


有 UN 
人 三 了 7 人 4 妨 一 人 时 # 如 名 


上 上述 程序 比较 容易 理解 ， 只 需要 和 错 清 楚 各 字符 串 图 数 的 
意义 。 应 该 提出 来 的 是 该 程序 技巧 性 很 高 ,请 注意 第 10 名 的 
安排 和 第 80 名 的 处 理 。 笔 者 曾 用 多 种 方法 (主要 是 用 数值 计算 
编制 的 程序 ) ， 与 上 述 程序 对 比 ， 结 果 发 现 它 是 各 种 解法 中 
节 快 的 一 种 。 

例 2， 找 出 不 超过 六 位 数 的 回 文 数 中 同时 又 是 完全 平方 
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数 “〈 一 个 两 位 以 上 的 数 ， 如 果 左 、 右 数字 对 称 ， 就 称 做 回 文 
数 ， 例 如 121，12321，698896 等 都 是 回 文 数 ) 。 以 下 是 程 
序 Y62 的 清单 和 运行 结 末 。 

ULIST 


二 REM NO.62= 
410 FOR I = 11 TO 3999 


20N= 工头 工 


30 hh 和 = STR 币 (N) 
40 也 = RIGHT 种 〈 人 有 囊 ， 六 》 
5O C 事 = MID 币 (6$,31) + MID 贡 《后 


审 ,21) + MID 币 《Aiy1) 

6 IF B$ = CS THEN PRINT N8 ”= 
2 了 和 闫 2 3 工 

7O NEXT 工 

60 END 


URUN 

121 中 14 关 11 
484 > 22 # 22 

上 7O6 一 2 基 DO 
10201 = 101 woi 


40804 = 202 # 202 
44944 二 212 a# 212 
69696 am se 共 264 


SO0 
和 98829396 = 昌 共 日 36 


本 程序 的 设计 思想 和 例 1 基 本 相同 ,唯一 要 注意 的 是 50 句 
是 本 程序 的 核心 语句 ， 请 注意 体会 字符 串 表达 式 的 写法 和 执 
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行 顺序 。 
若 50 句 写成， 


SO Cn = MID 币 (8 和 11) + MID 向 〈A 
串 , 2 1)》 + MID 种 〈A 币 39 1) 


会 出 现 什么 问题 ， 请 有 兴趣 的 读者 不 妨 上 机 试 一 下 。 


8. 绝对 值 丁 数 的 一 个 应 用 
我 们 知道 一 些 简 单 的 数学 运算 ， 可 以 代替 巡 辑 运算 。 
例如 ， Ax*B 代 款 A AND B 
SGN(A+B) 代 检 A OR B 
1-A 代 赤 NOT 和 
当然 ， 这 里 的 4、3 都 是 指 逻 辑 变量 ， 其 取 值 只 有 两 
利 ，1 和 0。AND，OR，NOT 都 是 逻辑 运算 ， 分 别 叫 逻辑 
“与 ”， 罗 辑 “ 或 ”， 逻 辑 “ 非 ? 。 
事实 上 ， 还 有 一 种 逻辑 和 运算， 了 叫 异 或 运算 XOR。 它 也 
可 以 用 简单 函数 来 代替 。 


1 xXOR 1 = 0 
1 XOR oO = 1 
oO XOR 0O = 0 
O XOR 1 一 1 


可 以 看 出 上 述 规律 是 变量 相同 ， 结 果 为 0， 变量 不 同 ， 
结果 为 1。 
绝对 值 函 数 也 可 以 代替 异 或 运算 ， 事 实 上 


142 


ABS (1~1) = 0 

ABS (1-0) 一直 

ABS 《0O-0) = 0 

ABS (0D-1)》 = 1 
可 见 上 面 两 组 等 式 一 一 对 应 。 


题目 ，4，B38，C 三 人 在 一 起 ，4 指责 3 正在 撒谎 ，B 指 
责 C 正 在 撒 谎 ， 而 C 指 资 4 和 了 都 在 撒谎 。 试 编 一 程序 ， 
判断 究竟 谁 撒谎 。 

分 析 :， 对 这 个 具体 问题 ， 因 为 具有 撒谎 和 不 撒谎 两 种 ， 
所 以 可 以 作 一 个 逻辑 上 的 假定 ， 撒 谎 叫 "也 ， 说 实话 虽 *0"。 

对 每 一 个 人 来 说 ， 都 有 说 谎 和 讲 真 话 两 种 可 能 ， 三 个 人 
(三 个 变量 ) 就 有 8 种 情况 ， 即 


后 了 C 
吕 O Q 
侨 OO 工 
OO 1 品 
站 了 
人 吕 从 
她 上 
1 革 怠 
1 1 1 


4 指责 了 撒谎 ， 也 是 两 种 情况 ， 若 4 说 真 话 那么 卫 
说 谎 ， 老 4 说 假 话 ， 则 如 是 老实 人 。 即 
4=0，B=1 
4=1y 8B=0 
把 这 种 情况 可 以 用 ABS(A - B) =1 来 综合 。 
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同 理 ， 了 3 指责 .C -撒谎 ， 可 以 表示 为 ， ABS(B - C) = 1， 
而 C 指责 4 和 了 都 在 撤 谎 ， 则 可 以 表示 为，ABSCC- A+B) 
过 过 

现在， 可 以 安排 程序 了 ， 由 于 4，B，C 都 有 撒谎 、 不 
撒谎 两 种 可 能 , 八 种 情况 ,所 以 容易 想到 用 三 重 循环 来 解决 。 
ee 为 使 程序 更 加 简 
车 ， 用 思 辑 表达 式 来 表示 这 三 个 条 件 。 程 序 表 运行 
也 可 人 和 条件。 程序 No63 清 单 和 运行 


LI 所 


号 愉 EM NS 63 

10 FOR Am=0OTO 1: FOR B= 9 TD 
ti FURC=OTO 1 

20 IF APS (一 ) = 0 OR ABS 《 
B 一 CamaOGR ABB (C 一 入 并 
B) = OO THEN 460 

3s0 IF Am THEN PRINT 加 从” 

40O IFBm tt THEN PRINT “有 耻 ” 

ss IFC= 1 THEN PRINT “CC” 

6 NEXT CNEXT Bs NEXT 全 


可 见 真 正 的 说 谎 者 是 4 和 C 。 
本 程序 主要 讲 了 ABS(X) 的 一 个 特殊 应 用 ， 它 可 以 代 椒 
有 多 辑 上 的 异 或 XOR 运算 ， 为 在 有 膛 辑 判断 的 程序 中 ， 提 供 
了 方便 。 同 时 ， 我 们 还 应 看 到 ， 上 述 问题 用 人 来 进行 判断 还 
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是 比较 困难 的 ， 可 是 利用 计算 机 来 代 标 人 进行 迎 辑 判 果 和 推 
理 却 是 可 以 的 。 囊 实 上 ， 计 算 机 具有 一 定 的 逻辑 思维 能 力 ， 
也 许 这 就 是 “电脑 ”的 由 来 到 ! 因此 ,在 以 后 的 编程 中 ,可 以 
根据 题目 的 要 求 ， 在 有 可 能 利用 计算 机 协助 我 们 编程 时 ， 尽 
可 能 马 用 计算 机 ， 这 会 减少 许多 计算 工作 和 一 些 复杂 问题 的 
判断 及 分 析 。 特 别 是 实际 问题 往往 是 很 复杂 的 ， 倘 有 多 和 变 
量 ， 多 个 相互 制约 的 关系 ， 人 的 智力 不 可 能 一 下 子 涉及 到 回 
题 的 全 部 细节 ， 和 党 笛 难 于 做 出 判断 ， 所 以 遇 到 这 类 问题 ， 最 


好 求助 于 计算 名 帮 征 。 
39. 多重 循 环 程序 的 设计 技巧 


众所周知 ， 由 于 计算 机 县 有 快速 准确 及 园 辑 判断 航 特 
点 ， 玫 乎 所 有 的 高 级 程序 设计 语言 都 设置 了 循环 语句 ， 月 以 
有 有 党 好 解决 大 最 的 在 处 理 形 式 又 完全 相同 的 重复 性 计算 问 
题 。 对 多 重 循环 来 说 ， 这 种 重复 计算 的 工作 量 是 二 分 巨大 
的 ， 多 重 循环 最 内 层 循环 体 的 执行 次 数 ， 一 般 来 说 是 各 层 循 
环 次 数 连 乘 积 之 值 ， 由 于 这 个 数字 往往 非 党 庞大， 所 以 对 多 
重 循环 来 说 ， 十 分 注意 减少 不 必要 的 循环 次 数 ， 尽 一 切 可 能 
避免 诗 无 意义 的 重复 工作 ， 特 别 是 如 有 可 能 尽量 减少 循环 恋 
套 的 层次 ， 就 是 一 个 有 实际 六 义 的 工作 。 这 样 ， 我 们 就 可 能 
使 计算 机 执行 较 少 的 命令 ， 和 干 出 更 多 的 工作 ， 从 而 达到 沾 约 
时 间 、 少 占 存 贮 、 加 快速 度 、 提 高 效率 的 目的 。 

对 于 般 套 的 循环 来 说 ， 外 层 循 环 的 控制 变量 取 一 定数 值 
后 ， 内 层 循 环 则 要 整整 转 上 一 圈 ， 只 要 内 层 循环 不 结束 ， 越 
谈 不 上 外 层 循环 控制 变量 的 增值 和 判断 。 这 种 循环 语句 的 中 
行 过 程 ， 和 时 钟 的 转动 规律 有 十 分 相似 的 地 方 ， 以 三 重 循环 
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为 例 ， 三 层 循环 的 关系 好 象 手表 的 时 针 、 分 针 与 秒针 ， 时 针 
移动 一 格 ， 分 针 转 动 一 插 ， 分 针 移 动 一 格 ， 秒 针 走 动 一 周 。 
但 二 者 也 有 差异 ， 时 钟 上 上 足 发 条 ， 指 针 的 移动 都 是 做 的 有 用 
航 工 作 ， 它 在 一 秒 一 秒 地 计时 ， 而 程序 的 循环 呢 ? 并 非 都 是 
搞 行 有 效 的 计算 ， 事 实 上 ， 党 党 发 生 不 可 能 出 现 我 们 所 希望 
揭 结 果 时 ， 计 算 机 还 在 继续 进行 毫 无 意义 的 循环 。 
这 里 从 一 个 有 具体 实例 出 发 ， 谈 谈 多 重 循环 的 设计 技巧 。 
用 100 元 买 100 只 鸡 ， 已 知 每 只 小 鸡 、 公 鸡 、 母 鸡 分 别 
为 0.5 元 、2 元 、3 元 ， 问 各 种 鸡 至 少 买 一 只 一 共有 多 少 种 
解 ; 设 4，B8，C 分 别 为 购买 小 鸡 、 公 鸡 和 有 尽 鸡 的 只 
数 ， 据 题 意 有 以 下 方程 : 
44+ 了 +C=100 《1》 
0.54+2838+3C=100 《2》 
而 约束 条 件 为 : 1 过 4，B，C 友 98 
我 们 可 以 用 循环 的 方法 , 取 4，B，C 的 各 种 可 能 取 值 ， 
去 投 试 上 述 方程 ， 只 有 全 部 满足 方 程 人 1 和 《2》 的 4，B，C 
值 ， 才 是 问题 的 解 ， 故 容易 写 出 程序 No64， 
ULIST 


10 REM ND.64 
20 FOR AN = 1 TO loo0 
3S0 FOR B = 1 TO to0 
40 FOR C = 1 TO 100 
50 IFA+B+C< >100THEN 80 


CO IFDN+4 基 PRYTOX 人 Ce > 209 
THEN 80 


146 


79 PRINT 有 9 生性 
80 NEXT C 
530 NEXT 忆 
100 NEXT 人 
11o END 
程序 No64 总 的 循环 次 数 高 达 100 万 次 (100x100xf1f8 
=10")， 所 以 运行 时 间 是 很 长 的 ， 在 PC-1500 机 上 要 运行 13 
个 多 小 时 ， 在 APPLE-I 机 上 要 运行 2 个 多 小 时 ， 而 在 
WANG PCS-I 和 WANG 2200T( 均 为 美国 计算 机 ) ， 运 
行 了 4 个 多 小 时 。 
程序 Na64 并 没有 原则 性 错误 ， 因 为 它 确实 可 以 得 到 正 
确 的 结果 ， 为 了 更 快 地 得 到 答案 ， 显 然 还 有 值得 探讨 的 阅 
题 。 
第 一 个 是 4，B，C 的 终 值 是 否 都 是 100? 
程序 Ne64 中 的 三 个 循环 变量 4,B,C 的 终 值 均 为 100， 
是 没有 考 虑 每 只 鸡 至 少 买 一 只 这 个 约束 条 件 编 写 的 。 事 实 
上 ， 各 种 鸡 至 少 各 买 一 只 ， 每 种 鸡 最 多 只 能 买 98 只 。 反 尽 
三 个 循环 变量 的 终 值 都 只 要 取 98 即 可 。 对 于 每 一 个 单 循 环 
来 说 ， 终 值 仅 仅 减 小 了 2， 好 象 微不足道 ， 但 对 多 重 循环 来 
说 ， 它 的 意义 就 非 同 小 可 。 因 为 各 重 循环 终 值 按 98 计算， 
总 的 循环 次 数 变 为 98 x98 x98= 941192 次 , 比 程序 No64 循 环 
次 数 减 少 了 58808 次 。 也 就 是 说 ,减少 了 近 6 万 次 的 无 效 乌 
- 环 。 
第 二 个 是 改写 一 下 循环 变量 的 终 值 : 
循环 变量 的 初 值 、 终 值 和 步 长 可 以 是 县 体 的 数值 ， 也 三 
拟 是 已 赋值 的 变量 ， 或 者 是 表达 式 。 从 这 个 基本 约定 出 故 ， 
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把 三 重 循环 的 终 值 改写 一 下 : 


20 FOR 和 = 1 TO 98 
30 FOR B=-1 TO993 一 依 
40 FORC=1t TO loD ~ 全 ~ 情 


显然 ， 于 述 程序 段 ， 和 三 重 循环 变量 都 从 1 变化 到 98， 


注意 : 本 程序 段 写 法 比较 特 你 ， 它 是 芳 虐 到 4,B,C 三 
个 变量 均 应 泪 足 4+B+C=100 和 1 过 4，B38，C 反 98 这 两 个 : 
条 件 的 。 但 在 执行 的 效果 上 ， 劫 有 很 大 的 不 同 。 

为 了 说 明 这 个 问题 ， 我 们 先 郑 察 一 下 程序 N65 和 Na66: 


iDL 工 分 下 
号 REM ND.65 
IO N = DO 
20 FOR = 1 TD 5S 
3s0O FORB=1 TOS 
340 FORC= 1 TOS5S 
s50ON=N+ It 
oO NEXT C 
70 NEXT B 
8D NEXT 盒 
90 PRINT "N= "YN 
DLLIST 
瑟 REM NOD.a6 
IDON = 
20 FORAN= 1 TDS 
SO FORB=1 TO 一 会 
40 FDRC=tTO7 一 人 A~” 尽 


SON= 王 N++T 1 
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CC 全 世 站 尼 
7ZO NEXT 日 
80 NEXT AN 
50 “PRINT “No N 


于 述 两 个 程序 假设 都 满足: 
4+DP+C=7 
1 扫 放 ，B，C 坟 3 
这 两 个 条 件 。 
由 于 多 重 循 永 最 内 层 循环 体 的 执行 次 数 ， 是 各 层 循 环 次 
数 连 乘 积 之 值 , 所 以 程序 Nw65， 首 其 执 行 循环 5x5x5= 125 
次 ， 程 序 的 90 行 是 统计 打印 循环 总 次 数 的 。 
对 于 程序 Ne66， 根 据 多 重 循环 的 执行 过 程 ， 不 难 计算 出 
总 的 循环 次 数 只 有 35 次 。 它 仅 为 程序 N65 循 处 次 数 的 28%。 
由 此 可 知 ” 对 本 程序 来 说 ， 循 环 终 值 的 写法 是 大 有 讲究 
芍 。 
现在 我 们 再 回 到 本 题 上 束 、 改 用 程序 Ne67， 求 解 本 题 ; 
DOLIST 
4O REM NO,.67 


20 FORA= 1 TO 38 
3S0O FOR B = 1 TO 993 一 全 


4 FOR C 1 TO 100 一 后 一 昌 

SO IFAN+B+CEa 100 AND 和 二 4 其 
B+6ekC= 200 THEN FRINT 
合生 号 5 


Bc、NEXT C: NEXT B: NEXT 人 


程序 Na67 比 程序 Na64 写 得 更 为 简洁 ， 但 最 主要 的 是 由 
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于 把 循环 终 值 形 式 上 改写 了 一 下 ， 总 循环 次 数 已 由 Im64 的 : 
100 万 次 ,改变 到 只 有 161700 次 , 它 仅 为 程序 64 循环 次 数 
的 16.17%， 显 然 ， 这 是 一 个 大 的 飞跃 ， 它 省 去 了 838300 次 
无 用 循环 。 

从 上 述 事 实 ， 可 以 看 到 多 重 循环 的 工作 量 是 非常 巨大 
的 ， 而 税 短 初 坚 和 终 值 之 间 的 差距 是 减少 循环 次 数 的 一 个 有 
效 方法 。 当 然 ， 这 种 减少 ， 必 须 由 题 意 分 析 确 定 ， 不 能 任意 
减少 。 不 同 的 题目， 可 以 用 增 大 初 值 、 减 少 终 值 或 藉 者 兼 耐 
有 之， 来 达到 减少 循 东 次 数 的 目的 ， 上 网 是 用 减少 终 值 的 方 
法 来 实现 的 。 至 于 本 例 改 写 终 值 的 形式 ， 是 受 本 题 不 定 方程 : 
求解 这 个 特殊 条 件 制 约 的 。 

第 三 个 是 三 个 循环 的 终 值 也 不 可 能 都 是 98， 

这 个 问题 也 是 非常 明显 的 ， 若 买 98 只 小 鸡 则 共 花 去 98 
x 0.50 = 49 元 ， 再 买 母 鸡 、 公 鸡 各 一 只 ， 又 分 别 花 去 3 元 竹 
2 元 ， 虽 然 买 了 100 只 鸡 ， 但 只 花 了 49+3+2= 54 元 ， 不 浇 
足 “ 百 钱 买 百 鸡 ”的 题 意 ， 同 理 尽 戏 、 公 鸡 也 不 可 能 买 到 98: 
只 ， 否 则 100 元 钱 不 够 花 。 

让 我 们 进一步 思 芳 ， 看 看 还 有 什么 方法 ， 来 减少 循环 次 
数 。 


政 写 方程 (1> 和 《2》 

4+ 了 B=100-C 《3》 

4+4B=200-6C 《4》 
《3> 式 X6- 《4> 式 得 ， 

54+2B=400 《5》 
《4> 式 -《〈3> 式 得 : 

SC+3838=100 《6》 
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(3> 式 x4-(4? 式 得 : 


34-2C=200 《7》 
政 写 (5》、《6》、《7) 三 式 则 有 ， 

[2 《8》 

| C = 0 《9》 


表面 上 原来 两 个 方程 (1》、《2>， 变 成 了 三 个 方程 (8)、 
《9》、(〈10>， 多 了 一 个 方程 ， 但 经 过 这 样 处 理 ， 却 使 问题 篇 
单 多 了 ， 因 为 每 个 方程 只 是 一 个 变量 依赖 于 另 一 个 变量 的 单 

由 《8> 式 ， 刀 最 少 取 1 时 (根据 题 意 ) ，4=79.6， 良 
整数 79 

由 《10 式 ，C 最 少 取 1 时 ，4= 67.3， 取 整数 67。 

改 可 知 4 的 变化 范围 ，67 和 4 到 79 

再 考 罕 方程 (2>， 当 4 为 奇数 时 ， 不 满足 方程 的 解 ， 所 
只 4 必 为 偶数 ， 这 样 ， 可 知 4 的 取 值 范 围 是 68 到 78， 且 
沙 长 为 2。 

这 个 事实 告诉 我 们 ，4 的 终 值 不 是 98，4 的 初 值 也 不 是 
1， 并 且 4 的 变化 也 是 有 规律 可 寻 的 ， 它 的 间隔 是 2。 

读者 不 难 想到 ， 了 3 和 C 的 初 、 终 值 又 是 什么 ? 它们 是 窜 
也 按 一 定 的 规律 变化 呢 ? 这 个 问题 ， 还 是 让 计算 机 帮助 我 们 
判断 吧 ! 

第 四 个 是 计算 机 可 以 帮助 找到 变量 的 取 值 范围 和 变化 狐 
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os 


4 的 变化 范围 确定 了 ， 代 入 《8> 式 ， 则 可 确定 了 的 变化 
范围 ; 同 理 互 的 数值 确定 了 ， 代 入 《9> 式 ， 也 可 确定 C 的 变 
化 范围 。 

现在 ， 编 两 个 小 程序 N68 和 No69， 让 计算 机 自动 求解 。 


ULIST 


SREM NO. 

7 PRINT "B=”$ 

10 FORA = 68 TO 78 STEP < 
20 日 = (400 一 瑟 关 人) 7/ 民 

30O PRINT Bi 

40 NEXT 人 扩 


DRUN 
及 =3D， 2 与 20， 1 1 与 ， 


由 此 可 知 ，3 的 变化 范围 是 从 5 到 30， 且 步 长 为 5 
DLIST 


5 REM ”NO0.69 

7 PRINT "Ce="; 

10 FoR B =5TO 0 STEP 5 
20C= (100-Sx#B) /5 
30 PRINT Ci "3 

40 NEXT B 


DRUN 
C=x7;14,11，, 昌 ,5S,2， 
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性 序 结果 表明 ,C 的 取 值 范围 是 从 2 到 17 而 步 长 为 3。 
综合 4、B、C 的 取 值 范围 和 步 长 变化 规律 ， 可 以 写 出 
程序 No70， 


LI 号 了 


40 RE NO 70 

20 FORAR= 68TB 7B STEP 2 
30 FORPB=Ss TO 3O STEP S 
40 FORCm2 TO 17 STEP 3 


SO TITPFA+B+DmdlOO AND AN+ 4 和 # 
3 Cam 200 THEN PRINT 
六 ,日 ,DC 

46O NEXT C NEXT B8 NEXT 有 


读者 不 难 发 现 ， 程 序 Na70 循 环 次 数 共 有 125 次 ， 仅 为 程 
序 部 64 循环 次 数 的 万 分 之 一 点 二 五 。 显 然 ， 本 程序 的 运行 
束 变 是 很 快 的 ， 在 PC-1500 机 上 仪 运行 20 秒 就 得 出 全 部 结 

由 此 可 知 ， 同 时 增 大 初 值 和 缩 小 终 值 ， 并 且 加 大 步 长 
佐 ， 会 使 程序 效率 大 大 提高 ， 它 们 是 加 快 程序 循环 部 分 执行 
速度 的 又 一 个 好 办 法 。 

加 时 ， 我 们 还 应 看 到 ， 如 果 没 有 计算 机 的 “帮助 ”， 很 
快 地 作出 上 述 三 个 变量 的 取 值 范围 及 变化 规律 的 判 新 ， 还 是 
比较 困难 的 。 在 程序 设计 中 ， 科 用 计算 机 协助 人 们 编程 ， 也 
是 一 个 值得 研究 的 课题 。 

第 五 个 是 循环 秋 套 的 重 数 可 以 减少 ， 

减少 循环 的 层 次， 使 循环 舱 套 您 少 人 鳄 好 ， 这 样 ， 便 可 以 
进一步 提高 程序 的 运行 速度 。 


分 析 程 序 Nw70， 用 C=100-4-8 来 代替 40 句 ， 显 然 
是 可 以 的 ， 因 为 当 4 和 了 的 值 确定 后 ，C 的 值 也 就 确定 下 
来 ， 故 可 以 省 去 一 重 循环 ,这 样 总 的 循环 次 数 只 有 25 次 了 。 
同样 ， 我 们 从 方程 (8》、《9》、《10> 中 还 看 到 这 样 一 个 事实 ， 
每 个 变量 只 依赖 一 个 变量 ，4 定 刁 也 就 定 了 ， 而 刀 定 C 也 
定 了 ， 因 而 完全 可 以 再 省 去 一 重 循环 ， 即 删 去 30 行 的 一 重 
循环 ， 而 改 用 了 = (400 - 5*4)/2 的 赋值 语句 。 省 去 二 重 循环 
后 ， 循 环 次 数 只 有 5 次 ， 它 仅 为 No64 循 环 次 数 的 百 万 分 之 
五 ， 可 见 运 行 时 间 会 进一步 缩短 ， 而 速度 则 会 大 大 提高 ， 见 
程序 Na71， 
DLTST 


10 REM NO.71 

20 FOR A = 68 TO 78 STEP 2 

30 日 = (400 -与 # AR) /2 

40C=lioo--B 

50 IFAY+YRB+C= 100 AND AT+ 4 其 
B+6+xkC= 200 THEN FRINT 
,BC 

60 NEXT A 


第 六 个 是 循环 体 的 判断 语句 可 以 省 去 ， 

经 过 上 面 好 几 纱 的 简化 ,我 们 得 到 程序 Ne71, 好 象 该 做 的 
我 们 都 做 了 一 一 循环 初 值 增 大 、 终 值 减 小 . 步 长 增加 、 循 环 层 
次 又 减少 了 ， 但 作为 循环 程序 的 设计 技巧 ， 就 本 题 来 说 ， 循 
环 体 中 的 内 容 还 可 以 插 酌 。 由 于 4、B、C 之 间 关 系 完 全 由 
方程 48、、《9》、《10? 所 制约 ， 并 且 在 处 理 上 述 工 作 时 ， 又 已 
经 芳 虑 了 约束 条 件 ， 所 以 ， 程 序 N71 中 循环 体内 的 判断 语 
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名 完全 可 以 省 去 。 因 而 有 程序 Ne72; 


ULIST 

10 REM NG.72 

2D FOR A = 68 TQ 7B STEP 2:B = (人 
400 -SHA ar aoo -内 

- B PRINT ABC NEXT 及 

ERUN 

ea8 SO 人 

79 25 S 

了 2 2 公 

74 1 各 1 

76 19 1 乏 

7B 委 47 


这 个 程序 不 仅 简短 节省 内 存 ， 而 且 运 行 速度 又 是 所 有 程 
诺 中 最 快 的 一 个 。 在 PC-1500 机 上 只 运行 了 几 秒 钟 ， 而 在 
APPLE-I 机 上 执行 时 间 仅 为 1 秒 钟 左右 。 

综 上 记述， 我 们 围绕 一 个 不 定 方程 的 求解 过 程 ， 探 讨 了 
循 汞 程序 设计 技巧 的 各 个 方面 。 昌 然 本 题 是 从 一 个 具体 例子 
出 发 ,但 引出 的 结论 却 上 共有 普遍 的 意义 。 循 处 是 BASIC 语 言 中 
的 精华 和 核心 ， 编 程序 几乎 离 不 开 循环 ， 因 此 ， 擎 握 循环 程 
序 的 设计 技巧 ， 无 论 对 学 习 那 一 种 高 级 语言 都 是 重要 的 。 循 
环 程序 的 设计 技巧 可 以 归纳 以 下 五 个 方面 ， 在 步 长 不 变 的 情 
况 下 ， 碱 小 初 值 和 终 值 的 差距 是 减少 循环 次 数 的 有 效 方法 
在 初 、 终 值 一定 的 情况 下 ， 加 大 步 长 可 以 大 大 提高 程序 的 效 
率 ; 减少 循环 供 套 的 重 数 ， 是 过 高 程序 运行 速度 的 关键 : 调 
整 和 精简 循环 体 的 语句 ， 是 提高 程序 质量 的 有 力 措施 ， 合理 
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安排 控制 和 转向 语句 ， 是 及 时 脱离 无 戏 估 水 避 儿 重修 计 算 的 
前 提 。 而 所 有 这 一 切 ， 又 以 尽量 减少 无 用 循环 次 数 ， 邑 妃 加 
免 大 量 无 意义 的 重复 工作 为 根本 ， 这 是 高 质量 进行 箱 环 程序 
设计 的 核心 。 
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